home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1994 / MacHack 1994.toast / MacHack™ 1987-1994 / MacHack™ '90 / Source Code ƒ.sea / Source Code ƒ / TLC&TLP1.01aƒ / tlpprocf.c < prev    next >
MacBinary  |  1990-01-28  |  16.6 KB  |  [TEXT/MPS ]

open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert Compact Compressed (Unix) (archive/compact) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Sun Jan 28 07:37:15 1990, modified Sun Jan 28 07:37:15 1990, creator 'MPS ', type ASCII, 16484 bytes "tlpprocf.c" , at 0x40e4 382 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[MPS ]



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 74 6c 70 70 72 6f | 63 66 2e 63 00 00 00 00 |..tlppro|cf.c....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 8c 00 c0 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 40 64 00 | 00 01 7e a1 e8 97 fb a1 |.....@d.|..~.....|
|00000060| e8 97 fb 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 75 38 00 00 |........|....u8..|
|00000080| 73 74 75 66 66 28 29 20 | 2a 2f 0d 09 70 75 74 63 |stuff() |*/..putc|
|00000090| 28 27 5c 6e 27 2c 20 6f | 75 74 5f 66 69 6c 65 29 |('\n', o|ut_file)|
|000000a0| 3b 09 2f 2a 20 66 69 6e | 69 73 68 20 70 72 65 76 |;./* fin|ish prev|
|000000b0| 69 6f 75 73 20 6c 69 6e | 65 20 2a 2f 0d 09 6f 75 |ious lin|e */..ou|
|000000c0| 74 5f 6c 69 6e 65 5f 6e | 75 6d 62 65 72 2b 2b 3b |t_line_n|umber++;|
|000000d0| 09 09 2f 2a 20 66 69 6e | 69 73 68 20 70 72 65 76 |../* fin|ish prev|
|000000e0| 69 6f 75 73 20 6c 69 6e | 65 20 2a 2f 0d 09 64 6f |ious lin|e */..do|
|000000f0| 5f 66 6f 72 6d 5f 66 65 | 65 64 28 6f 75 74 5f 66 |_form_fe|ed(out_f|
|00000100| 69 6c 65 2c 20 6f 75 74 | 5f 6c 69 6e 65 5f 6e 75 |ile, out|_line_nu|
|00000110| 6d 62 65 72 29 3b 0d 09 | 7d 20 2f 2a 20 66 69 6e |mber);..|} /* fin|
|00000120| 69 73 68 5f 78 72 65 66 | 5f 73 74 75 66 66 28 29 |ish_xref|_stuff()|
|00000130| 20 2a 2f 0d 0d 0d 0d 2f | 2a 3d 3d 3d 3d 3d 3d 3d | */..../|*=======|
|00000140| 3d 3d 3d 3d 3d 3d 3d 3d | 5b 20 70 72 69 6e 74 5f |========|[ print_|
|00000150| 73 79 6d 5f 74 72 65 65 | 20 5d 3d 3d 3d 3d 3d 3d |sym_tree| ]======|
|00000160| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 2a 2f 0d 0d 73 |========|===*/..s|
|00000170| 74 61 74 69 63 20 56 4f | 49 44 20 70 72 69 6e 74 |tatic VO|ID print|
|00000180| 5f 73 79 6d 5f 74 72 65 | 65 28 73 79 6d 5f 6e 6f |_sym_tre|e(sym_no|
|00000190| 64 65 29 0d 73 79 6d 5f | 6c 69 73 74 5f 74 79 70 |de).sym_|list_typ|
|000001a0| 65 2a 09 73 79 6d 5f 6e | 6f 64 65 3b 0d 0d 09 7b |e*.sym_n|ode;...{|
|000001b0| 20 2f 2a 20 70 72 69 6e | 74 5f 73 79 6d 5f 74 72 | /* prin|t_sym_tr|
|000001c0| 65 65 28 29 20 2a 2f 0d | 09 73 74 61 74 69 63 20 |ee() */.|.static |
|000001d0| 62 6f 6f 6c 65 61 6e 09 | 09 09 6e 65 77 5f 73 79 |boolean.|..new_sy|
|000001e0| 6d 62 6f 6c 3b 0d 09 73 | 74 61 74 69 63 20 62 6f |mbol;..s|tatic bo|
|000001f0| 6f 6c 65 61 6e 09 09 09 | 6e 65 77 5f 66 69 6c 65 |olean...|new_file|
|00000200| 3b 0d 09 73 74 61 74 69 | 63 20 66 69 6c 65 5f 6c |;..stati|c file_l|
|00000210| 69 73 74 5f 74 79 70 65 | 2a 09 70 72 65 76 5f 66 |ist_type|*.prev_f|
|00000220| 69 6c 65 5f 70 74 72 3b | 0d 09 73 74 61 74 69 63 |ile_ptr;|..static|
|00000230| 20 6c 69 6e 65 5f 6c 69 | 73 74 5f 74 79 70 65 2a | line_li|st_type*|
|00000240| 09 6c 69 6e 65 5f 70 74 | 72 3b 0d 0d 09 2f 2a 20 |.line_pt|r;.../* |
|00000250| 70 72 69 6e 74 20 6e 65 | 78 74 20 6e 6f 6e 2d 6e |print ne|xt non-n|
|00000260| 75 6c 6c 20 6e 6f 64 65 | 20 2a 2f 0d 09 69 66 20 |ull node| */..if |
|00000270| 28 73 79 6d 5f 6e 6f 64 | 65 21 3d 4e 55 4c 4c 29 |(sym_nod|e!=NULL)|
|00000280| 0d 09 09 7b 0d 09 09 2f | 2a 0d 09 09 70 72 69 6e |...{.../|*...prin|
|00000290| 74 20 6c 65 66 74 20 73 | 75 62 74 72 65 65 20 66 |t left s|ubtree f|
|000002a0| 69 72 73 74 20 28 4e 4f | 54 45 3a 20 72 65 63 75 |irst (NO|TE: recu|
|000002b0| 72 73 69 6f 6e 29 0d 09 | 09 2a 2f 0d 09 09 70 72 |rsion)..|.*/...pr|
|000002c0| 69 6e 74 5f 73 79 6d 5f | 74 72 65 65 28 73 79 6d |int_sym_|tree(sym|
|000002d0| 5f 6e 6f 64 65 2d 3e 6c | 65 66 74 29 3b 0d 0d 09 |_node->l|eft);...|
|000002e0| 09 2f 2a 20 73 65 65 20 | 69 66 20 75 73 65 72 20 |./* see |if user |
|000002f0| 77 61 6e 74 73 20 74 6f | 20 61 62 6f 72 74 2e 2e |wants to| abort..|
|00000300| 20 2a 2f 0d 09 09 63 68 | 65 63 6b 5f 75 73 65 72 | */...ch|eck_user|
|00000310| 5f 61 62 6f 72 74 28 29 | 3b 0d 0d 09 09 2f 2a 0d |_abort()|;..../*.|
|00000320| 09 09 74 72 61 76 65 72 | 73 65 20 74 68 65 20 72 |..traver|se the r|
|00000330| 65 66 65 72 65 6e 63 65 | 20 6c 69 6e 65 20 23 20 |eference| line # |
|00000340| 6c 69 73 74 20 66 6f 72 | 20 74 68 69 73 20 73 79 |list for| this sy|
|00000350| 6d 62 6f 6c 0d 09 09 2a | 2f 0d 64 65 62 75 67 28 |mbol...*|/.debug(|
|00000360| 70 72 69 6e 74 66 28 22 | 70 72 69 6e 74 5f 73 79 |printf("|print_sy|
|00000370| 6d 28 25 73 29 3a 5c 6e | 22 2c 73 79 6d 5f 6e 6f |m(%s):\n|",sym_no|
|00000380| 64 65 2d 3e 73 79 6d 5f | 6e 61 6d 65 29 3b 29 0d |de->sym_|name);).|
|00000390| 09 09 69 66 20 28 76 65 | 72 62 6f 73 65 20 3e 20 |..if (ve|rbose > |
|000003a0| 31 29 0d 09 09 09 7b 0d | 09 09 09 69 66 20 28 6f |1)....{.|...if (o|
|000003b0| 75 74 5f 76 73 79 6d 5f | 63 6f 75 6e 74 20 25 20 |ut_vsym_|count % |
|000003c0| 56 53 59 4d 5f 50 45 52 | 5f 4c 49 4e 45 20 3d 3d |VSYM_PER|_LINE ==|
|000003d0| 20 30 29 0d 09 09 09 09 | 7b 0d 09 09 09 09 70 75 | 0).....|{.....pu|
|000003e0| 74 63 28 27 5c 6e 27 2c | 20 73 74 64 65 72 72 29 |tc('\n',| stderr)|
|000003f0| 3b 0d 09 09 09 09 66 70 | 72 69 6e 74 66 28 73 74 |;.....fp|rintf(st|
|00000400| 64 65 72 72 2c 20 6d 65 | 6d 64 69 73 70 46 6d 74 |derr, me|mdispFmt|
|00000410| 2c 20 67 65 74 5f 66 72 | 65 65 6d 65 6d 28 29 29 |, get_fr|eemem())|
|00000420| 3b 0d 09 09 09 09 7d 0d | 09 09 09 66 70 72 69 6e |;.....}.|...fprin|
|00000430| 74 66 28 73 74 64 65 72 | 72 2c 22 25 63 22 2c 73 |tf(stder|r,"%c",s|
|00000440| 79 6d 5f 6e 6f 64 65 2d | 3e 73 79 6d 5f 6e 61 6d |ym_node-|>sym_nam|
|00000450| 65 5b 30 5d 29 3b 0d 09 | 09 09 66 66 6c 75 73 68 |e[0]);..|..fflush|
|00000460| 28 73 74 64 65 72 72 29 | 3b 0d 09 09 09 6f 75 74 |(stderr)|;....out|
|00000470| 5f 76 73 79 6d 5f 63 6f | 75 6e 74 2b 2b 3b 0d 09 |_vsym_co|unt++;..|
|00000480| 09 09 7d 0d 09 09 70 72 | 65 76 5f 66 69 6c 65 5f |..}...pr|ev_file_|
|00000490| 70 74 72 20 3d 20 4e 55 | 4c 4c 3b 0d 09 09 6e 65 |ptr = NU|LL;...ne|
|000004a0| 77 5f 73 79 6d 62 6f 6c | 20 3d 20 54 52 55 45 3b |w_symbol| = TRUE;|
|000004b0| 0d 09 09 6c 69 6e 65 5f | 70 74 72 20 20 20 3d 20 |...line_|ptr = |
|000004c0| 73 79 6d 5f 6e 6f 64 65 | 2d 3e 6c 69 6e 65 5f 6c |sym_node|->line_l|
|000004d0| 69 73 74 3b 0d 09 09 77 | 68 69 6c 65 20 28 6c 69 |ist;...w|hile (li|
|000004e0| 6e 65 5f 70 74 72 20 21 | 3d 20 4e 55 4c 4c 29 0d |ne_ptr !|= NULL).|
|000004f0| 09 09 09 7b 0d 64 65 62 | 75 67 28 70 72 69 6e 74 |...{.deb|ug(print|
|00000500| 66 28 22 70 72 69 6e 74 | 5f 73 79 6d 3a 6c 69 6e |f("print|_sym:lin|
|00000510| 65 23 25 64 20 69 6e 20 | 66 69 6c 65 20 27 25 73 |e#%d in |file '%s|
|00000520| 27 5c 6e 22 2c 5c 0d 6c | 69 6e 65 5f 70 74 72 2d |'\n",\.l|ine_ptr-|
|00000530| 3e 6c 69 6e 65 5f 6e 75 | 6d 62 65 72 2c 6c 69 6e |>line_nu|mber,lin|
|00000540| 65 5f 70 74 72 2d 3e 66 | 69 6c 65 5f 70 74 72 2d |e_ptr->f|ile_ptr-|
|00000550| 3e 66 69 6c 65 5f 6e 61 | 6d 65 29 3b 29 0d 09 09 |>file_na|me);)...|
|00000560| 09 6e 65 77 5f 66 69 6c | 65 20 3d 20 28 6c 69 6e |.new_fil|e = (lin|
|00000570| 65 5f 70 74 72 2d 3e 66 | 69 6c 65 5f 70 74 72 20 |e_ptr->f|ile_ptr |
|00000580| 21 3d 20 70 72 65 76 5f | 66 69 6c 65 5f 70 74 72 |!= prev_|file_ptr|
|00000590| 29 3b 0d 09 09 09 61 64 | 64 5f 72 65 66 5f 74 6f |);....ad|d_ref_to|
|000005a0| 5f 6c 69 6e 65 28 6e 65 | 77 5f 73 79 6d 62 6f 6c |_line(ne|w_symbol|
|000005b0| 2c 20 6e 65 77 5f 66 69 | 6c 65 2c 20 73 79 6d 5f |, new_fi|le, sym_|
|000005c0| 6e 6f 64 65 2c 20 6c 69 | 6e 65 5f 70 74 72 29 3b |node, li|ne_ptr);|
|000005d0| 0d 09 09 09 70 72 65 76 | 5f 66 69 6c 65 5f 70 74 |....prev|_file_pt|
|000005e0| 72 20 3d 20 6c 69 6e 65 | 5f 70 74 72 2d 3e 66 69 |r = line|_ptr->fi|
|000005f0| 6c 65 5f 70 74 72 3b 0d | 09 09 09 6c 69 6e 65 5f |le_ptr;.|...line_|
|00000600| 70 74 72 20 3d 20 6c 69 | 6e 65 5f 70 74 72 2d 3e |ptr = li|ne_ptr->|
|00000610| 6e 65 78 74 3b 0d 09 09 | 09 6e 65 77 5f 73 79 6d |next;...|.new_sym|
|00000620| 62 6f 6c 20 3d 20 46 41 | 4c 53 45 3b 0d 09 09 09 |bol = FA|LSE;....|
|00000630| 7d 20 2f 2a 77 68 69 6c | 65 32 2a 2f 0d 0d 09 09 |} /*whil|e2*/....|
|00000640| 2f 2a 0d 09 09 6e 6f 77 | 20 70 72 69 6e 74 20 72 |/*...now| print r|
|00000650| 69 67 68 74 20 73 75 62 | 74 72 65 65 20 28 4e 4f |ight sub|tree (NO|
|00000660| 54 45 3a 20 72 65 63 75 | 72 73 69 6f 6e 29 0d 09 |TE: recu|rsion)..|
|00000670| 09 2a 2f 0d 09 09 70 72 | 69 6e 74 5f 73 79 6d 5f |.*/...pr|int_sym_|
|00000680| 74 72 65 65 28 73 79 6d | 5f 6e 6f 64 65 2d 3e 72 |tree(sym|_node->r|
|00000690| 69 67 68 74 29 3b 0d 09 | 09 7d 20 2f 2a 69 66 2a |ight);..|.} /*if*|
|000006a0| 2f 0d 09 7d 20 2f 2a 20 | 70 72 69 6e 74 5f 73 79 |/..} /* |print_sy|
|000006b0| 6d 5f 74 72 65 65 28 29 | 20 2a 2f 0d 0d 0d 0d 2f |m_tree()| */..../|
|000006c0| 2a 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |*=======|========|
|000006d0| 3d 3d 5b 20 70 72 69 6e | 74 5f 78 72 65 66 20 5d |==[ prin|t_xref ]|
|000006e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000006f0| 3d 3d 3d 2a 2f 0d 0d 56 | 4f 49 44 20 70 72 69 6e |===*/..V|OID prin|
|00000700| 74 5f 78 72 65 66 28 29 | 0d 0d 09 7b 20 2f 2a 20 |t_xref()|...{ /* |
|00000710| 70 72 69 6e 74 5f 78 72 | 65 66 28 29 20 2a 2f 0d |print_xr|ef() */.|
|00000720| 09 0d 64 65 62 75 67 28 | 70 75 74 73 28 22 70 72 |..debug(|puts("pr|
|00000730| 69 6e 74 5f 78 72 65 66 | 3a 22 29 3b 29 0d 0d 09 |int_xref|:");)...|
|00000740| 69 66 20 28 76 65 72 62 | 6f 73 65 29 0d 09 09 7b |if (verb|ose)...{|
|00000750| 0d 09 09 70 75 74 63 28 | 27 5c 6e 27 2c 20 73 74 |...putc(|'\n', st|
|00000760| 64 65 72 72 29 3b 0d 09 | 09 66 70 72 69 6e 74 66 |derr);..|.fprintf|
|00000770| 28 73 74 64 65 72 72 2c | 20 6d 65 6d 64 69 73 70 |(stderr,| memdisp|
|00000780| 46 6d 74 2c 20 67 65 74 | 5f 66 72 65 65 6d 65 6d |Fmt, get|_freemem|
|00000790| 28 29 29 3b 0d 09 09 66 | 70 75 74 73 28 22 44 6f |());...f|puts("Do|
|000007a0| 69 6e 67 20 43 72 6f 73 | 73 2d 52 65 66 65 72 65 |ing Cros|s-Refere|
|000007b0| 6e 63 65 2e 2e 22 2c 20 | 73 74 64 65 72 72 29 3b |nce..", |stderr);|
|000007c0| 0d 09 09 66 66 6c 75 73 | 68 28 73 74 64 65 72 72 |...fflus|h(stderr|
|000007d0| 29 3b 0d 09 09 7d 0d 0d | 09 73 65 74 75 70 5f 78 |);...}..|.setup_x|
|000007e0| 72 65 66 5f 73 74 75 66 | 66 28 29 3b 0d 0d 09 2f |ref_stuf|f();.../|
|000007f0| 2a 0d 09 74 72 61 76 65 | 72 73 65 20 74 68 65 20 |*..trave|rse the |
|00000800| 73 79 6d 62 6f 6c 20 6c | 69 73 74 2c 20 70 72 69 |symbol l|ist, pri|
|00000810| 6e 74 69 6e 67 20 65 61 | 63 68 20 73 79 6d 62 6f |nting ea|ch symbo|
|00000820| 6c 20 26 20 69 74 73 0d | 09 61 73 73 6f 63 69 61 |l & its.|.associa|
|00000830| 74 65 64 20 6c 69 73 74 | 20 6f 66 20 6c 69 6e 65 |ted list| of line|
|00000840| 20 72 65 66 65 72 65 6e | 63 65 73 2e 0d 09 2a 2f | referen|ces...*/|
|00000850| 0d 0d 09 6f 75 74 5f 76 | 73 79 6d 5f 63 6f 75 6e |...out_v|sym_coun|
|00000860| 74 20 3d 20 30 3b 0d 09 | 70 72 69 6e 74 5f 73 79 |t = 0;..|print_sy|
|00000870| 6d 5f 74 72 65 65 28 73 | 79 6d 62 6f 6c 5f 74 61 |m_tree(s|ymbol_ta|
|00000880| 62 6c 65 2e 73 79 6d 62 | 6f 6c 5f 6c 69 73 74 29 |ble.symb|ol_list)|
|00000890| 3b 0d 09 0d 09 69 66 20 | 28 76 65 72 62 6f 73 65 |;....if |(verbose|
|000008a0| 29 0d 09 09 70 75 74 63 | 28 27 5c 6e 27 2c 20 73 |)...putc|('\n', s|
|000008b0| 74 64 65 72 72 29 3b 0d | 0d 09 66 69 6e 69 73 68 |tderr);.|..finish|
|000008c0| 5f 78 72 65 66 5f 73 74 | 75 66 66 28 29 3b 0d 0d |_xref_st|uff();..|
|000008d0| 09 7d 20 2f 2a 20 70 72 | 69 6e 74 5f 78 72 65 66 |.} /* pr|int_xref|
|000008e0| 28 29 20 2a 2f 0d 00 00 | 01 00 00 00 01 4c 00 00 |() */...|.....L..|
|000008f0| 00 4c 00 00 00 32 00 00 | 07 07 08 52 4f 46 4a 55 |.L...2..|...ROFJU|
|00000900| 53 2e 43 2e 02 00 00 00 | 54 45 58 54 4d 50 53 20 |S.C.....|TEXTMPS |
|00000910| 00 00 00 00 00 00 05 74 | 6c 70 2e 63 02 00 00 00 |.......t|lp.c....|
|00000920| 54 45 58 54 4d 50 53 20 | 01 00 00 28 00 c0 00 00 |TEXTMPS |...(....|
|00000930| 00 00 9f 8a 00 00 00 00 | 54 45 58 54 4d 50 53 20 |........|TEXTMPS |
|00000940| 01 00 00 28 00 c0 00 00 | 00 00 00 00 00 00 00 00 |...(....|........|
|00000950| 00 00 00 00 00 00 00 00 | 9e 7f c2 a4 00 00 13 70 |........|.......p|
|00000960| 00 00 01 7e 00 00 00 00 | 00 00 0e 00 00 00 07 07 |...~....|........|
|00000970| 08 52 4f 46 4f 55 54 2e | 43 2e 02 00 00 00 54 45 |.ROFOUT.|C.....TE|
|00000980| 58 54 4d 50 53 20 00 00 | 00 00 00 00 00 00 00 00 |XTMPS ..|........|
|00000990| 07 f0 00 00 00 00 10 53 | 00 00 12 00 00 00 00 00 |.......S|........|
|000009a0| 01 7e 00 00 06 00 9e 7f | c2 94 9e 7f c2 95 00 00 |.~......|........|
|000009b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009c0| 00 00 00 00 36 ef 00 03 | 00 00 00 00 00 00 00 00 |....6...|........|
|000009d0| 36 ee 00 01 00 00 00 00 | 00 00 00 00 00 00 00 00 |6.......|........|
|000009e0| 0e 00 00 00 07 07 00 00 | 00 48 00 09 4d 6f 6e 61 |........|.H..Mona|
|000009f0| 63 6f 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |co......|........|
|00000a00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 06 00 04 |........|........|
|00000a10| 00 2c 00 05 01 6c 02 03 | 00 2c 00 05 01 6c 02 03 |.,...l..|.,...l..|
|00000a20| a0 dc f4 2c 00 00 00 00 | 00 00 00 00 00 00 00 00 |...,....|........|
|00000a30| 01 00 00 00 01 00 00 00 | 01 4c 00 00 00 4c 00 00 |........|.L...L..|
|00000a40| 00 32 00 27 c4 90 06 40 | 00 00 00 1c 00 32 00 00 |.2.'...@|.....2..|
|00000a50| 4d 50 53 52 00 00 00 0a | 03 ed ff ff 00 00 00 00 |MPSR....|........|
|00000a60| 00 00 00 00 2f 2a 20 54 | 4c 50 2e 43 20 2d 20 22 |..../* T|LP.C - "|
|00000a70| 54 68 65 20 4c 61 73 74 | 20 50 61 73 63 61 6c 20 |The Last| Pascal |
|00000a80| 43 72 6f 73 73 2d 72 65 | 66 65 72 65 6e 63 65 72 |Cross-re|ferencer|
|00000a90| 22 20 2d 20 50 61 73 63 | 61 6c 20 4d 61 69 6e 20 |" - Pasc|al Main |
|00000aa0| 72 6f 75 74 69 6e 65 09 | 09 2a 2f 0d 2f 2a 09 4c |routine.|.*/./*.L|
|00000ab0| 61 73 74 20 4d 6f 64 69 | 66 69 65 64 3a 09 30 32 |ast Modi|fied:.02|
|00000ac0| 2f 31 30 2f 38 39 09 09 | 09 09 09 09 09 09 09 09 |/10/89..|........|
|00000ad0| 09 2a 2f 0d 0d 2f 2a 0d | 2d 2d 2d 2d 2d 2d 2d 2d |.*/../*.|--------|
|00000ae0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000af0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 43 6f |--------|-----.Co|
|00000b20| 70 79 72 69 67 68 74 20 | 28 63 29 20 31 39 38 37 |pyright |(c) 1987|
|00000b30| 2d 31 39 38 39 2c 20 45 | 64 75 61 72 64 20 53 63 |-1989, E|duard Sc|
|00000b40| 68 77 61 6e 20 50 72 6f | 67 72 61 6d 73 20 5b 65 |hwan Pro|grams [e|
|00000b50| 73 70 5d 20 2d 20 41 6c | 6c 20 72 69 67 68 74 73 |sp] - Al|l rights|
|00000b60| 20 72 65 73 65 72 76 65 | 64 0d 54 4c 43 20 28 54 | reserve|d.TLC (T|
|00000b70| 68 65 20 4c 61 73 74 20 | 43 2d 43 72 6f 73 73 2d |he Last |C-Cross-|
|00000b80| 52 65 66 65 72 65 6e 63 | 65 72 29 20 61 6e 64 20 |Referenc|er) and |
|00000b90| 54 4c 50 20 28 73 61 6d | 65 2c 20 62 75 74 20 66 |TLP (sam|e, but f|
|00000ba0| 6f 72 20 50 61 73 63 61 | 6c 29 20 61 72 65 0d 43 |or Pasca|l) are.C|
|00000bb0| 72 6f 73 73 2d 52 65 66 | 65 72 65 6e 63 65 20 47 |ross-Ref|erence G|
|00000bc0| 65 6e 65 72 61 74 6f 72 | 73 20 63 72 61 66 74 65 |enerator|s crafte|
|00000bd0| 64 20 61 6e 64 20 73 68 | 6f 74 20 69 6e 74 6f 20 |d and sh|ot into |
|00000be0| 74 68 65 20 50 75 62 6c | 69 63 20 44 6f 6d 61 69 |the Publ|ic Domai|
|00000bf0| 6e 20 62 79 0d 45 64 75 | 61 72 64 20 53 63 68 77 |n by.Edu|ard Schw|
|00000c00| 61 6e 2e 20 20 54 68 65 | 20 73 6f 75 72 63 65 20 |an. The| source |
|00000c10| 63 6f 64 65 20 61 6e 64 | 20 65 78 65 63 75 74 61 |code and| executa|
|00000c20| 62 6c 65 20 70 72 6f 67 | 72 61 6d 20 6d 61 79 20 |ble prog|ram may |
|00000c30| 62 65 20 66 72 65 65 6c | 79 0d 64 69 73 74 72 69 |be freel|y.distri|
|00000c40| 62 75 74 65 64 20 61 73 | 20 6c 6f 6e 67 20 61 73 |buted as| long as|
|00000c50| 20 74 68 65 20 63 6f 70 | 79 72 69 67 68 74 2f 61 | the cop|yright/a|
|00000c60| 75 74 68 6f 72 20 6e 6f | 74 69 63 65 73 20 72 65 |uthor no|tices re|
|00000c70| 6d 61 69 6e 20 69 6e 74 | 61 63 74 2c 20 61 6e 64 |main int|act, and|
|00000c80| 0d 69 74 20 69 73 20 6e | 6f 74 20 75 73 65 64 20 |.it is n|ot used |
|00000c90| 69 6e 20 70 61 72 74 20 | 6f 72 20 77 68 6f 6c 65 |in part |or whole|
|00000ca0| 20 61 73 20 74 68 65 20 | 62 61 73 69 73 20 6f 66 | as the |basis of|
|00000cb0| 20 61 20 63 6f 6d 6d 65 | 72 63 69 61 6c 20 70 72 | a comme|rcial pr|
|00000cc0| 6f 64 75 63 74 2e 0d 41 | 6e 79 20 63 6f 6d 6d 65 |oduct..A|ny comme|
|00000cd0| 6e 74 73 2c 20 62 75 67 | 2d 66 69 78 65 73 2c 20 |nts, bug|-fixes, |
|00000ce0| 6f 72 20 65 6e 68 61 6e | 63 65 6d 65 6e 74 73 20 |or enhan|cements |
|00000cf0| 61 72 65 20 77 65 6c 63 | 6f 6d 65 2e 0d 41 6c 73 |are welc|ome..Als|
|00000d00| 6f 2c 20 69 66 20 79 6f | 75 20 66 69 6e 64 20 54 |o, if yo|u find T|
|00000d10| 4c 43 20 61 6e 64 20 69 | 74 27 73 20 73 6f 75 72 |LC and i|t's sour|
|00000d20| 63 65 20 63 6f 64 65 20 | 75 73 65 66 75 6c 2c 20 |ce code |useful, |
|00000d30| 61 20 63 6f 6e 74 72 69 | 62 75 74 69 6f 6e 20 6f |a contri|bution o|
|00000d40| 66 0d 24 32 30 20 28 63 | 68 65 63 6b 2f 6d 6f 6e |f.$20 (c|heck/mon|
|00000d50| 65 79 20 6f 72 64 65 72 | 29 20 69 73 20 65 6e 63 |ey order|) is enc|
|00000d60| 6f 75 72 61 67 65 64 21 | 20 20 48 6f 70 65 66 75 |ouraged!| Hopefu|
|00000d70| 6c 6c 79 20 77 65 20 77 | 69 6c 6c 20 61 6c 6c 20 |lly we w|ill all |
|00000d80| 73 65 65 20 6d 6f 72 65 | 0d 73 6f 75 72 63 65 20 |see more|.source |
|00000d90| 63 6f 64 65 20 64 69 73 | 74 72 69 62 75 74 65 64 |code dis|tributed|
|00000da0| 21 0d 09 45 64 75 61 72 | 64 20 53 63 68 77 61 6e |!..Eduar|d Schwan|
|00000db0| 2c 20 31 31 31 32 20 4f | 63 65 61 6e 69 63 20 44 |, 1112 O|ceanic D|
|00000dc0| 72 69 76 65 2c 20 45 6e | 63 69 6e 69 74 61 73 2c |rive, En|cinitas,|
|00000dd0| 20 43 61 6c 69 66 2e 20 | 39 32 30 32 34 0d 2d 2d | Calif. |92024.--|
|00000de0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000df0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e20| 2d 2d 2d 0d 2a 2f 0d 0d | 2f 2a 0d 48 45 41 44 45 |---.*/..|/*.HEADE|
|00000e30| 52 3a 09 09 54 68 65 20 | 4c 61 73 74 20 43 72 6f |R:..The |Last Cro|
|00000e40| 73 73 2d 52 65 66 65 72 | 65 6e 63 65 72 3b 0d 54 |ss-Refer|encer;.T|
|00000e50| 49 54 4c 45 3a 09 09 54 | 4c 43 2f 54 4c 50 20 2d |ITLE:..T|LC/TLP -|
|00000e60| 20 54 68 65 20 4c 61 73 | 74 20 43 72 6f 73 73 2d | The Las|t Cross-|
|00000e70| 52 65 66 65 72 65 6e 63 | 65 72 3b 0d 56 45 52 53 |Referenc|er;.VERS|
|00000e80| 49 4f 4e 3a 09 31 2e 30 | 31 3b 0d 0d 44 45 53 43 |ION:.1.0|1;..DESC|
|00000e90| 52 49 50 54 49 4f 4e 3a | 20 22 54 4c 43 2f 54 4c |RIPTION:| "TLC/TL|
|00000ea0| 50 2e 0d 09 09 09 50 61 | 73 63 61 6c 20 4d 61 69 |P.....Pa|scal Mai|
|00000eb0| 6e 20 72 6f 75 74 69 6e | 65 22 3b 0d 0d 4b 45 59 |n routin|e";..KEY|
|00000ec0| 57 4f 52 44 53 3a 09 55 | 74 69 6c 69 74 79 2c 20 |WORDS:.U|tility, |
|00000ed0| 43 72 6f 73 73 2d 72 65 | 66 65 72 65 6e 63 65 2c |Cross-re|ference,|
|00000ee0| 20 43 2c 20 50 61 73 63 | 61 6c 2c 20 41 70 70 6c | C, Pasc|al, Appl|
|00000ef0| 65 2c 20 4d 61 63 69 6e | 74 6f 73 68 2c 20 41 50 |e, Macin|tosh, AP|
|00000f00| 57 2c 20 41 7a 74 65 63 | 3b 0d 53 59 53 54 45 4d |W, Aztec|;.SYSTEM|
|00000f10| 3a 09 09 4d 61 63 69 6e | 74 6f 73 68 20 4d 50 57 |:..Macin|tosh MPW|
|00000f20| 2c 20 76 33 2e 30 3b 0d | 46 49 4c 45 4e 41 4d 45 |, v3.0;.|FILENAME|
|00000f30| 3a 09 54 4c 50 2e 43 3b | 0d 57 41 52 4e 49 4e 47 |:.TLP.C;|.WARNING|
|00000f40| 53 3a 09 22 48 61 73 20 | 6e 6f 74 20 79 65 74 20 |S:."Has |not yet |
|00000f50| 62 65 65 6e 20 70 6f 72 | 74 65 64 20 74 6f 20 4d |been por|ted to M|
|00000f60| 53 2d 44 4f 53 2e 0d 09 | 09 09 53 68 61 72 65 77 |S-DOS...|..Sharew|
|00000f70| 61 72 65 2c 20 24 32 30 | 20 43 68 65 63 6b 2f 4d |are, $20| Check/M|
|00000f80| 6f 6e 65 79 20 4f 72 64 | 65 72 20 73 75 67 67 65 |oney Ord|er sugge|
|00000f90| 73 74 65 64 2e 22 3b 0d | 0d 53 45 45 2d 41 4c 53 |sted.";.|.SEE-ALS|
|00000fa0| 4f 3a 09 52 45 41 44 4d | 45 2e 54 4c 43 2c 54 4c |O:.READM|E.TLC,TL|
|00000fb0| 43 48 45 4c 50 2e 44 4f | 43 2c 54 4c 50 48 45 4c |CHELP.DO|C,TLPHEL|
|00000fc0| 50 2e 44 4f 43 3b 0d 41 | 55 54 48 4f 52 53 3a 09 |P.DOC;.A|UTHORS:.|
|00000fd0| 45 64 75 61 72 64 20 53 | 63 68 77 61 6e 3b 0d 43 |Eduard S|chwan;.C|
|00000fe0| 4f 4d 50 49 4c 45 52 53 | 3a 09 41 5a 54 45 43 20 |OMPILERS|:.AZTEC |
|00000ff0| 43 36 35 20 76 33 2e 32 | 62 2c 20 41 50 50 4c 45 |C65 v3.2|b, APPLE|
|00001000| 49 49 47 53 20 41 50 57 | 20 43 20 76 31 2e 30 2c |IIGS APW| C v1.0,|
|00001010| 20 41 50 50 4c 45 20 4d | 41 43 49 4e 54 4f 53 48 | APPLE M|ACINTOSH|
|00001020| 20 4d 50 57 20 43 20 76 | 33 2e 30 3b 0d 2a 2f 0d | MPW C v|3.0;.*/.|
|00001030| 0d 0d 2f 2a 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |../*----|--------|
|00001040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 69 |--------|------ i|
|00001050| 6e 63 6c 75 64 65 20 66 | 69 6c 65 73 20 2d 2d 2d |nclude f|iles ---|
|00001060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001070| 2d 2d 2d 2d 2d 2d 2d 2d | 2a 2f 0d 0d 23 69 6e 63 |--------|*/..#inc|
|00001080| 6c 75 64 65 09 3c 73 74 | 64 69 6f 2e 68 3e 0d 23 |lude.<st|dio.h>.#|
|00001090| 69 6e 63 6c 75 64 65 09 | 22 74 6c 63 2e 68 22 0d |include.|"tlc.h".|
|000010a0| 0d 0d 2f 2a 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |../*----|--------|
|000010b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 65 78 74 |--------|---- ext|
|000010c0| 65 72 6e 61 6c 20 64 65 | 63 6c 61 72 61 74 69 6f |ernal de|claratio|
|000010d0| 6e 73 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ns -----|--------|
|000010e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2a 2f 0d 0d 65 78 74 |--------|-*/..ext|
|000010f0| 65 72 6e 09 56 4f 49 44 | 0d 09 09 09 09 68 61 6e |ern.VOID|.....han|
|00001100| 64 6c 65 5f 63 6d 64 5f | 6c 69 6e 65 28 29 2c 0d |dle_cmd_|line(),.|
|00001110| 09 09 09 09 68 61 6e 64 | 6c 65 5f 72 65 73 77 5f |....hand|le_resw_|
|00001120| 66 69 6c 65 28 29 2c 0d | 09 09 09 09 68 61 6e 64 |file(),.|....hand|
|00001130| 6c 65 5f 70 61 72 6d 5f | 66 69 6c 65 28 29 2c 0d |le_parm_|file(),.|
|00001140| 09 09 09 09 70 72 6f 63 | 65 73 73 5f 66 69 6c 65 |....proc|ess_file|
|00001150| 73 28 29 2c 0d 09 09 09 | 09 70 72 69 6e 74 5f 78 |s(),....|.print_x|
|00001160| 72 65 66 28 29 2c 0d 09 | 09 09 09 70 72 69 6e 74 |ref(),..|...print|
|00001170| 5f 73 74 61 74 73 28 29 | 3b 0d 65 78 74 65 72 6e |_stats()|;.extern|
|00001180| 09 69 6e 74 09 09 63 6c | 6f 73 65 5f 74 65 78 74 |.int..cl|ose_text|
|00001190| 5f 66 69 6c 65 28 29 3b | 0d 65 78 74 65 72 6e 09 |_file();|.extern.|
|000011a0| 46 49 4c 45 20 2a 09 6f | 70 65 6e 5f 74 65 78 74 |FILE *.o|pen_text|
|000011b0| 5f 66 69 6c 65 28 29 3b | 0d 0d 0d 2f 2a 2d 2d 2d |_file();|.../*---|
|000011c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011d0| 2d 2d 2d 2d 2d 2d 2d 20 | 73 74 61 74 69 63 20 76 |------- |static v|
|000011e0| 61 72 69 61 62 6c 65 73 | 20 2d 2d 2d 2d 2d 2d 2d |ariables| -------|
|000011f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001200| 2d 2a 2f 0d 0d 0d 2f 2a | 2d 2d 2d 2d 2d 2d 2d 2d |-*/.../*|--------|
|00001210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001220| 2d 2d 20 67 6c 6f 62 61 | 6c 20 76 61 72 69 61 62 |-- globa|l variab|
|00001230| 6c 65 73 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |les ----|--------|
|00001240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2a 2f 0d 0d |--------|----*/..|
|00001250| 63 68 61 72 09 09 72 65 | 66 5f 63 68 61 72 73 5b |char..re|f_chars[|
|00001260| 4d 41 58 5f 52 45 46 5f | 43 48 41 52 53 2b 31 5d |MAX_REF_|CHARS+1]|
|00001270| 20 3d 20 22 20 66 70 75 | 22 3b 0d 0d 65 6d 70 68 | = " fpu|";..emph|
|00001280| 5f 72 65 63 5f 74 79 70 | 65 09 09 65 6d 70 68 5f |_rec_typ|e..emph_|
|00001290| 61 72 72 61 79 5b 45 4d | 50 48 5f 4d 41 58 5d 3d |array[EM|PH_MAX]=|
|000012a0| 0d 09 7b 0d 09 7b 4e 55 | 4c 4c 2c 20 4e 55 4c 4c |..{..{NU|LL, NULL|
|000012b0| 7d 2c 0d 09 7b 4e 55 4c | 4c 2c 20 4e 55 4c 4c 7d |},..{NUL|L, NULL}|
|000012c0| 2c 0d 09 7b 4e 55 4c 4c | 2c 20 4e 55 4c 4c 7d 0d |,..{NULL|, NULL}.|
|000012d0| 09 7d 3b 0d 0d 66 69 6c | 65 5f 72 65 63 5f 74 79 |.};..fil|e_rec_ty|
|000012e0| 70 65 09 09 66 69 6c 65 | 5f 72 65 63 3d 0d 09 7b |pe..file|_rec=..{|
|000012f0| 0d 09 2f 2a 09 6e 75 6d | 5f 69 6e 5f 66 6e 61 6d |../*.num|_in_fnam|
|00001300| 65 73 09 2a 2f 09 09 30 | 2c 0d 09 2f 2a 09 66 69 |es.*/..0|,../*.fi|
|00001310| 6c 65 5f 6c 69 73 74 09 | 09 2a 2f 09 09 4e 55 4c |le_list.|.*/..NUL|
|00001320| 4c 2c 0d 09 2f 2a 09 63 | 75 72 72 5f 66 69 6c 65 |L,../*.c|urr_file|
|00001330| 09 09 2a 2f 09 09 4e 55 | 4c 4c 2c 0d 09 2f 2a 09 |..*/..NU|LL,../*.|
|00001340| 70 61 72 6d 5f 66 6e 61 | 6d 65 09 09 2a 2f 09 09 |parm_fna|me..*/..|
|00001350| 22 54 4c 50 50 61 72 6d | 2e 44 61 74 22 2c 0d 09 |"TLPParm|.Dat",..|
|00001360| 2f 2a 09 72 65 73 77 5f | 66 6e 61 6d 65 09 09 2a |/*.resw_|fname..*|
|00001370| 2f 09 09 22 54 4c 50 52 | 65 73 77 2e 44 61 74 22 |/.."TLPR|esw.Dat"|
|00001380| 0d 09 7d 3b 0d 0d 70 61 | 72 6d 5f 72 65 63 5f 74 |..};..pa|rm_rec_t|
|00001390| 79 70 65 09 09 70 61 72 | 6d 5f 72 65 63 3d 0d 09 |ype..par|m_rec=..|
|000013a0| 7b 0d 0d 2f 2a 20 47 45 | 4e 45 52 41 4c 20 2a 2f |{../* GE|NERAL */|
|000013b0| 0d 09 2f 2a 09 64 6f 5f | 69 6e 63 6c 75 64 65 73 |../*.do_|includes|
|000013c0| 20 09 2a 2f 09 09 46 41 | 4c 53 45 2c 0d 09 2f 2a | .*/..FA|LSE,../*|
|000013d0| 09 64 6f 5f 6c 69 73 74 | 69 6e 67 09 09 2a 2f 09 |.do_list|ing..*/.|
|000013e0| 09 46 41 4c 53 45 2c 0d | 09 2f 2a 09 64 6f 5f 78 |.FALSE,.|./*.do_x|
|000013f0| 72 65 66 20 09 09 2a 2f | 09 09 46 41 4c 53 45 2c |ref ..*/|..FALSE,|
|00001400| 0d 09 2f 2a 09 64 6f 5f | 73 74 61 74 73 09 09 2a |../*.do_|stats..*|
|00001410| 2f 09 09 46 41 4c 53 45 | 2c 0d 09 2f 2a 09 6f 75 |/..FALSE|,../*.ou|
|00001420| 74 5f 66 6e 61 6d 65 09 | 09 2a 2f 09 09 22 54 4c |t_fname.|.*/.."TL|
|00001430| 50 2e 4f 75 74 22 2c 0d | 0d 2f 2a 20 50 52 49 4e |P.Out",.|./* PRIN|
|00001440| 54 45 52 20 2a 2f 0d 09 | 2f 2a 09 70 61 67 65 5f |TER */..|/*.page_|
|00001450| 6c 69 6e 65 73 09 09 2a | 2f 09 09 36 36 2c 0d 09 |lines..*|/..66,..|
|00001460| 2f 2a 09 70 61 67 65 5f | 63 6f 6c 75 6d 6e 73 09 |/*.page_|columns.|
|00001470| 2a 2f 09 09 38 30 2c 0d | 09 2f 2a 09 74 6f 70 5f |*/..80,.|./*.top_|
|00001480| 6c 69 6e 65 09 09 2a 2f | 09 09 31 2c 0d 09 2f 2a |line..*/|..1,../*|
|00001490| 09 62 6f 74 5f 6c 69 6e | 65 09 09 2a 2f 09 09 35 |.bot_lin|e..*/..5|
|000014a0| 36 2c 0d 09 2f 2a 09 6c | 65 66 74 5f 63 6f 6c 75 |6,../*.l|eft_colu|
|000014b0| 6d 6e 20 09 2a 2f 09 09 | 31 2c 0d 09 2f 2a 09 72 |mn .*/..|1,../*.r|
|000014c0| 69 67 68 74 5f 63 6f 6c | 75 6d 6e 09 2a 2f 09 09 |ight_col|umn.*/..|
|000014d0| 38 30 2c 0d 09 2f 2a 09 | 75 73 65 72 5f 68 65 61 |80,../*.|user_hea|
|000014e0| 64 69 6e 67 09 2a 2f 09 | 09 4e 55 4c 4c 2c 0d 09 |ding.*/.|.NULL,..|
|000014f0| 2f 2a 09 64 6f 5f 73 69 | 6e 67 6c 65 5f 73 68 74 |/*.do_si|ngle_sht|
|00001500| 73 09 2a 2f 09 09 46 41 | 4c 53 45 2c 0d 09 2f 2a |s.*/..FA|LSE,../*|
|00001510| 09 70 72 69 6e 74 65 72 | 5f 69 6e 69 74 09 2a 2f |.printer|_init.*/|
|00001520| 09 09 4e 55 4c 4c 2c 0d | 09 2f 2a 09 68 61 73 5f |..NULL,.|./*.has_|
|00001530| 66 6f 72 6d 5f 66 65 65 | 64 09 2a 2f 09 09 54 52 |form_fee|d.*/..TR|
|00001540| 55 45 2c 0d 09 2f 2a 09 | 66 69 72 73 74 5f 70 61 |UE,../*.|first_pa|
|00001550| 67 65 09 09 2a 2f 09 09 | 31 2c 0d 09 2f 2a 09 6c |ge..*/..|1,../*.l|
|00001560| 61 73 74 5f 70 61 67 65 | 09 09 2a 2f 09 09 39 39 |ast_page|..*/..99|
|00001570| 39 39 2c 0d 0d 2f 2a 20 | 4c 49 53 54 49 4e 47 20 |99,../* |LISTING |
|00001580| 2a 2f 0d 09 2f 2a 09 74 | 61 62 5f 77 69 64 74 68 |*/../*.t|ab_width|
|00001590| 09 09 2a 2f 09 09 34 2c | 0d 09 2f 2a 09 65 6d 70 |..*/..4,|../*.emp|
|000015a0| 68 5f 63 6f 6d 6d 65 6e | 74 73 09 2a 2f 09 09 45 |h_commen|ts.*/..E|
|000015b0| 4d 50 48 5f 4e 4f 4e 45 | 2c 0d 09 2f 2a 09 65 6d |MPH_NONE|,../*.em|
|000015c0| 70 68 5f 68 65 61 64 69 | 6e 67 09 2a 2f 09 09 45 |ph_headi|ng.*/..E|
|000015d0| 4d 50 48 5f 4e 4f 4e 45 | 2c 0d 09 2f 2a 09 65 6d |MPH_NONE|,../*.em|
|000015e0| 70 68 5f 72 65 73 65 72 | 76 65 64 09 2a 2f 09 09 |ph_reser|ved.*/..|
|000015f0| 45 4d 50 48 5f 4e 4f 4e | 45 2c 0d 09 2f 2a 09 65 |EMPH_NON|E,../*.e|
|00001600| 6d 70 68 5f 66 75 6e 63 | 68 65 61 64 73 09 2a 2f |mph_func|heads.*/|
|00001610| 09 09 45 4d 50 48 5f 4e | 4f 4e 45 2c 0d 09 2f 2a |..EMPH_N|ONE,../*|
|00001620| 09 70 61 67 69 6e 67 5f | 73 74 72 69 6e 67 09 2a |.paging_|string.*|
|00001630| 2f 09 09 4e 55 4c 4c 2c | 0d 0d 2f 2a 20 58 52 45 |/..NULL,|../* XRE|
|00001640| 46 20 2a 2f 0d 09 2f 2a | 09 73 79 6d 62 6f 6c 5f |F */../*|.symbol_|
|00001650| 73 69 7a 65 20 09 2a 2f | 09 09 4d 41 58 5f 53 59 |size .*/|..MAX_SY|
|00001660| 4d 5f 53 49 5a 45 2c 0d | 09 2f 2a 09 78 72 65 66 |M_SIZE,.|./*.xref|
|00001670| 5f 6e 75 6d 73 09 09 2a | 2f 09 09 46 41 4c 53 45 |_nums..*|/..FALSE|
|00001680| 2c 0d 09 2f 2a 09 78 72 | 65 66 5f 73 74 72 69 6e |,../*.xr|ef_strin|
|00001690| 67 73 09 2a 2f 09 09 46 | 41 4c 53 45 2c 0d 09 2f |gs.*/..F|ALSE,../|
|000016a0| 2a 09 64 6f 5f 63 6f 6e | 64 69 74 69 6f 6e 61 6c |*.do_con|ditional|
|000016b0| 73 20 2a 2f 09 09 46 41 | 4c 53 45 2c 0d 09 2f 2a |s */..FA|LSE,../*|
|000016c0| 09 64 6f 5f 63 61 73 65 | 5f 73 65 6e 73 09 2a 2f |.do_case|_sens.*/|
|000016d0| 09 09 46 41 4c 53 45 2c | 0d 09 2f 2a 09 64 6f 5f |..FALSE,|../*.do_|
|000016e0| 78 63 61 73 65 5f 73 65 | 6e 73 09 2a 2f 09 09 46 |xcase_se|ns.*/..F|
|000016f0| 41 4c 53 45 2c 0d 09 2f | 2a 09 64 6f 5f 75 6e 64 |ALSE,../|*.do_und|
|00001700| 65 72 73 63 6f 72 65 73 | 09 2a 2f 09 09 46 41 4c |erscores|.*/..FAL|
|00001710| 53 45 2c 0d 09 2f 2a 09 | 65 6d 70 68 5f 73 79 6d |SE,../*.|emph_sym|
|00001720| 62 6f 6c 73 09 2a 2f 09 | 09 45 4d 50 48 5f 4e 4f |bols.*/.|.EMPH_NO|
|00001730| 4e 45 0d 0d 2f 2a 20 53 | 54 41 54 53 20 2a 2f 0d |NE../* S|TATS */.|
|00001740| 0d 09 7d 3b 0d 0d 72 65 | 73 77 5f 72 65 63 5f 74 |..};..re|sw_rec_t|
|00001750| 79 70 65 09 09 72 65 73 | 77 5f 72 65 63 3d 0d 09 |ype..res|w_rec=..|
|00001760| 7b 0d 09 2f 2a 09 6e 75 | 6d 5f 72 65 73 77 6f 72 |{../*.nu|m_reswor|
|00001770| 64 73 09 2a 2f 09 09 30 | 2c 0d 09 2f 2a 09 72 65 |ds.*/..0|,../*.re|
|00001780| 73 77 5f 6c 69 73 74 09 | 09 2a 2f 09 09 4e 55 4c |sw_list.|.*/..NUL|
|00001790| 4c 0d 09 7d 3b 0d 0d 73 | 79 6d 5f 74 61 62 6c 65 |L..};..s|ym_table|
|000017a0| 5f 74 79 70 65 09 09 73 | 79 6d 62 6f 6c 5f 74 61 |_type..s|ymbol_ta|
|000017b0| 62 6c 65 3d 0d 09 7b 0d | 09 2f 2a 09 73 79 6d 62 |ble=..{.|./*.symb|
|000017c0| 6f 6c 5f 6c 69 73 74 20 | 09 2a 2f 09 09 4e 55 4c |ol_list |.*/..NUL|
|000017d0| 4c 0d 09 7d 3b 0d 0d 73 | 74 61 74 5f 72 65 63 5f |L..};..s|tat_rec_|
|000017e0| 74 79 70 65 09 09 73 74 | 61 74 5f 72 65 63 3d 0d |type..st|at_rec=.|
|000017f0| 09 7b 0d 09 2f 2a 09 74 | 6f 74 61 6c 5f 6c 69 6e |.{../*.t|otal_lin|
|00001800| 65 73 20 09 2a 2f 09 09 | 30 0d 09 7d 3b 0d 0d 74 |es .*/..|0..};..t|
|00001810| 6f 6b 65 6e 5f 72 65 63 | 5f 74 79 70 65 09 09 74 |oken_rec|_type..t|
|00001820| 6f 6b 65 6e 3d 0d 09 7b | 0d 09 2f 2a 09 74 6f 6b |oken=..{|../*.tok|
|00001830| 5f 74 79 70 65 09 09 2a | 2f 09 09 2d 31 2c 20 2f |_type..*|/..-1, /|
|00001840| 2a 20 69 6e 69 74 20 74 | 6f 20 62 61 64 20 76 61 |* init t|o bad va|
|00001850| 6c 75 65 20 2a 2f 0d 09 | 2f 2a 09 74 6f 6b 5f 73 |lue */..|/*.tok_s|
|00001860| 74 72 69 6e 67 09 09 2a | 2f 09 09 22 22 2c 0d 09 |tring..*|/.."",..|
|00001870| 2f 2a 09 74 6f 6b 5f 76 | 61 6c 75 65 09 09 2a 2f |/*.tok_v|alue..*/|
|00001880| 09 09 30 4c 2c 0d 09 2f | 2a 09 74 6f 6b 5f 63 6f |..0L,../|*.tok_co|
|00001890| 6c 75 6d 6e 09 09 2a 2f | 09 09 30 0d 09 7d 3b 0d |lumn..*/|..0..};.|
|000018a0| 0d 6c 69 6e 65 5f 74 79 | 70 65 09 09 09 63 75 72 |.line_ty|pe...cur|
|000018b0| 72 5f 6c 69 6e 65 09 09 | 3d 20 22 22 3b 0d 70 6f |r_line..|= "";.po|
|000018c0| 73 5f 69 6e 74 20 09 09 | 09 6f 75 74 5f 70 61 67 |s_int ..|.out_pag|
|000018d0| 65 5f 6e 75 6d 62 65 72 | 20 3d 20 30 3b 0d 70 6f |e_number| = 0;.po|
|000018e0| 73 5f 69 6e 74 20 09 09 | 09 76 65 72 62 6f 73 65 |s_int ..|.verbose|
|000018f0| 20 09 09 3d 20 30 3b 0d | 69 6e 74 20 09 09 09 09 | ..= 0;.|int ....|
|00001900| 65 6e 61 62 6c 65 5f 64 | 65 62 75 67 73 09 3d 20 |enable_d|ebugs.= |
|00001910| 46 41 4c 53 45 3b 0d 46 | 49 4c 45 2a 09 09 09 09 |FALSE;.F|ILE*....|
|00001920| 6f 75 74 5f 66 69 6c 65 | 3b 0d 0d 0d 0d 2f 2a 3d |out_file|;..../*=|
|00001930| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001940| 3d 3d 5b 20 6d 61 69 6e | 20 5d 3d 3d 3d 3d 3d 3d |==[ main| ]======|
|00001950| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 2a |========|=======*|
|00001960| 2f 0d 0d 6d 61 69 6e 28 | 61 72 67 63 2c 61 72 67 |/..main(|argc,arg|
|00001970| 76 29 0d 69 6e 74 20 09 | 61 72 67 63 3b 0d 63 68 |v).int .|argc;.ch|
|00001980| 61 72 09 2a 2a 61 72 67 | 76 3b 0d 0d 09 7b 20 2f |ar.**arg|v;...{ /|
|00001990| 2a 20 6d 61 69 6e 28 29 | 20 2a 2f 0d 09 69 6e 74 |* main()| */..int|
|000019a0| 09 09 65 72 72 6f 72 3b | 0d 09 63 68 61 72 09 63 |..error;|..char.c|
|000019b0| 75 72 72 5f 74 69 6d 65 | 5f 73 74 72 5b 33 30 5d |urr_time|_str[30]|
|000019c0| 3b 0d 0d 09 70 72 69 6e | 74 66 28 22 5c 6e 54 68 |;...prin|tf("\nTh|
|000019d0| 65 20 4c 61 73 74 20 50 | 61 73 63 61 6c 20 43 72 |e Last P|ascal Cr|
|000019e0| 6f 73 73 2d 72 65 66 65 | 72 65 6e 63 65 72 20 28 |oss-refe|rencer (|
|000019f0| 54 4c 50 29 20 76 65 72 | 73 69 6f 6e 3a 25 73 5c |TLP) ver|sion:%s\|
|00001a00| 6e 22 2c 54 4c 43 5f 56 | 45 52 53 49 4f 4e 29 3b |n",TLC_V|ERSION);|
|00001a10| 0d 09 70 72 69 6e 74 66 | 28 22 43 6f 70 79 72 69 |..printf|("Copyri|
|00001a20| 67 68 74 20 31 39 38 37 | 2d 31 39 38 39 20 62 79 |ght 1987|-1989 by|
|00001a30| 20 45 64 75 61 72 64 20 | 53 63 68 77 61 6e 20 5b | Eduard |Schwan [|
|00001a40| 65 73 70 5d 5c 6e 5c 6e | 22 29 3b 0d 09 66 66 6c |esp]\n\n|");..ffl|
|00001a50| 75 73 68 28 73 74 64 6f | 75 74 29 3b 0d 0d 09 67 |ush(stdo|ut);...g|
|00001a60| 65 74 5f 74 69 6d 65 28 | 63 75 72 72 5f 74 69 6d |et_time(|curr_tim|
|00001a70| 65 5f 73 74 72 29 3b 0d | 09 66 70 72 69 6e 74 66 |e_str);.|.fprintf|
|00001a80| 28 73 74 64 65 72 72 2c | 20 22 5c 6e 53 74 61 72 |(stderr,| "\nStar|
|00001a90| 74 69 6e 67 20 61 74 20 | 3e 20 25 73 5c 6e 22 2c |ting at |> %s\n",|
|00001aa0| 63 75 72 72 5f 74 69 6d | 65 5f 73 74 72 29 3b 0d |curr_tim|e_str);.|
|00001ab0| 09 66 66 6c 75 73 68 28 | 73 74 64 65 72 72 29 3b |.fflush(|stderr);|
|00001ac0| 0d 0d 09 68 61 6e 64 6c | 65 5f 63 6d 64 5f 6c 69 |...handl|e_cmd_li|
|00001ad0| 6e 65 28 61 72 67 63 2c | 20 61 72 67 76 29 3b 0d |ne(argc,| argv);.|
|00001ae0| 09 68 61 6e 64 6c 65 5f | 72 65 73 77 5f 66 69 6c |.handle_|resw_fil|
|00001af0| 65 28 29 3b 0d 09 68 61 | 6e 64 6c 65 5f 70 61 72 |e();..ha|ndle_par|
|00001b00| 6d 5f 66 69 6c 65 28 29 | 3b 0d 09 6f 75 74 5f 66 |m_file()|;..out_f|
|00001b10| 69 6c 65 20 3d 20 6f 70 | 65 6e 5f 74 65 78 74 5f |ile = op|en_text_|
|00001b20| 66 69 6c 65 28 70 61 72 | 6d 5f 72 65 63 2e 6f 75 |file(par|m_rec.ou|
|00001b30| 74 5f 66 6e 61 6d 65 2c | 20 22 77 2b 22 2c 20 26 |t_fname,| "w+", &|
|00001b40| 65 72 72 6f 72 29 3b 0d | 09 69 66 20 28 65 72 72 |error);.|.if (err|
|00001b50| 6f 72 29 0d 09 09 7b 0d | 09 09 66 70 72 69 6e 74 |or)...{.|..fprint|
|00001b60| 66 28 73 74 64 65 72 72 | 2c 22 45 72 72 6f 72 20 |f(stderr|,"Error |
|00001b70| 23 25 64 2f 24 25 78 20 | 6f 70 65 6e 69 6e 67 20 |#%d/$%x |opening |
|00001b80| 6f 75 74 70 75 74 20 66 | 69 6c 65 20 27 25 73 27 |output f|ile '%s'|
|00001b90| 5c 6e 22 2c 0d 09 09 09 | 09 65 72 72 6f 72 2c 65 |\n",....|.error,e|
|00001ba0| 72 72 6f 72 2c 70 61 72 | 6d 5f 72 65 63 2e 6f 75 |rror,par|m_rec.ou|
|00001bb0| 74 5f 66 6e 61 6d 65 29 | 3b 0d 09 09 65 78 69 74 |t_fname)|;...exit|
|00001bc0| 28 42 41 44 5f 45 58 49 | 54 29 3b 0d 09 09 7d 0d |(BAD_EXI|T);...}.|
|00001bd0| 09 65 6c 73 65 0d 09 09 | 7b 0d 09 09 69 66 20 28 |.else...|{...if (|
|00001be0| 70 61 72 6d 5f 72 65 63 | 2e 70 72 69 6e 74 65 72 |parm_rec|.printer|
|00001bf0| 5f 69 6e 69 74 20 21 3d | 20 4e 55 4c 4c 29 0d 09 |_init !=| NULL)..|
|00001c00| 09 09 66 70 75 74 73 28 | 70 61 72 6d 5f 72 65 63 |..fputs(|parm_rec|
|00001c10| 2e 70 72 69 6e 74 65 72 | 5f 69 6e 69 74 2c 20 6f |.printer|_init, o|
|00001c20| 75 74 5f 66 69 6c 65 29 | 3b 0d 09 09 70 72 6f 63 |ut_file)|;...proc|
|00001c30| 65 73 73 5f 66 69 6c 65 | 73 28 29 3b 0d 09 09 69 |ess_file|s();...i|
|00001c40| 66 20 28 70 61 72 6d 5f | 72 65 63 2e 64 6f 5f 78 |f (parm_|rec.do_x|
|00001c50| 72 65 66 29 0d 09 09 09 | 70 72 69 6e 74 5f 78 72 |ref)....|print_xr|
|00001c60| 65 66 28 29 3b 0d 09 09 | 69 66 20 28 70 61 72 6d |ef();...|if (parm|
|00001c70| 5f 72 65 63 2e 64 6f 5f | 73 74 61 74 73 29 0d 09 |_rec.do_|stats)..|
|00001c80| 09 09 70 72 69 6e 74 5f | 73 74 61 74 73 28 29 3b |..print_|stats();|
|00001c90| 0d 09 09 65 72 72 6f 72 | 20 3d 20 63 6c 6f 73 65 |...error| = close|
|00001ca0| 5f 74 65 78 74 5f 66 69 | 6c 65 28 6f 75 74 5f 66 |_text_fi|le(out_f|
|00001cb0| 69 6c 65 2c 20 70 61 72 | 6d 5f 72 65 63 2e 6f 75 |ile, par|m_rec.ou|
|00001cc0| 74 5f 66 6e 61 6d 65 29 | 3b 0d 09 09 69 66 20 28 |t_fname)|;...if (|
|00001cd0| 65 72 72 6f 72 29 0d 09 | 09 09 7b 0d 09 09 09 66 |error)..|..{....f|
|00001ce0| 70 72 69 6e 74 66 28 73 | 74 64 65 72 72 2c 22 45 |printf(s|tderr,"E|
|00001cf0| 72 72 6f 72 20 23 25 64 | 2f 24 25 78 20 63 6c 6f |rror #%d|/$%x clo|
|00001d00| 73 69 6e 67 20 6f 75 74 | 70 75 74 20 66 69 6c 65 |sing out|put file|
|00001d10| 20 27 25 73 27 5c 6e 22 | 2c 0d 09 09 09 09 09 65 | '%s'\n"|,......e|
|00001d20| 72 72 6f 72 2c 65 72 72 | 6f 72 2c 70 61 72 6d 5f |rror,err|or,parm_|
|00001d30| 72 65 63 2e 6f 75 74 5f | 66 6e 61 6d 65 29 3b 0d |rec.out_|fname);.|
|00001d40| 09 09 09 65 78 69 74 28 | 42 41 44 5f 45 58 49 54 |...exit(|BAD_EXIT|
|00001d50| 29 3b 0d 09 09 09 7d 0d | 0d 09 09 67 65 74 5f 74 |);....}.|...get_t|
|00001d60| 69 6d 65 28 63 75 72 72 | 5f 74 69 6d 65 5f 73 74 |ime(curr|_time_st|
|00001d70| 72 29 3b 0d 09 09 66 70 | 72 69 6e 74 66 28 73 74 |r);...fp|rintf(st|
|00001d80| 64 65 72 72 2c 20 22 5c | 6e 46 69 6e 69 73 68 65 |derr, "\|nFinishe|
|00001d90| 64 20 61 74 20 3e 20 25 | 73 5c 6e 22 2c 63 75 72 |d at > %|s\n",cur|
|00001da0| 72 5f 74 69 6d 65 5f 73 | 74 72 29 3b 0d 09 09 66 |r_time_s|tr);...f|
|00001db0| 66 6c 75 73 68 28 73 74 | 64 65 72 72 29 3b 0d 0d |flush(st|derr);..|
|00001dc0| 09 09 7d 0d 09 7d 20 2f | 2a 20 6d 61 69 6e 28 29 |..}..} /|* main()|
|00001dd0| 20 2a 2f 0d 00 00 01 00 | 00 00 01 4c 00 00 00 4c | */.....|...L...L|
|00001de0| 00 00 00 32 00 00 03 fa | 08 43 6f 6d 6d 61 6e 64 |...2....|.Command|
|00001df0| 6f 6d 02 00 00 00 4d 50 | 53 54 4d 50 53 20 01 00 |om....MP|STMPS ..|
|00001e00| 00 00 00 40 08 74 6c 70 | 2e 6d 61 6b 65 70 02 00 |...@.tlp|.makep..|
|00001e10| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 3c 00 c0 |..TEXTMP|S ...<..|
|00001e20| 00 00 00 00 00 00 54 45 | 58 54 4d 50 53 20 01 00 |......TE|XTMPS ..|
|00001e30| 00 3c 00 c0 00 00 00 00 | 00 00 00 00 00 00 00 00 |.<......|........|
|00001e40| 00 00 00 00 00 00 9e a8 | fe 4d 00 00 09 25 00 00 |........|.M...%..|
|00001e50| 01 7e 00 00 00 00 00 00 | 0d 00 00 00 03 fa 07 43 |.~......|.......C|
|00001e60| 6f 6d 70 61 72 65 02 00 | 00 00 4d 50 53 54 4d 50 |ompare..|..MPSTMP|
|00001e70| 53 20 01 00 00 c0 00 80 | 01 70 00 00 04 10 00 00 |S ......|.p......|
|00001e80| 00 00 00 00 00 00 00 00 | 00 00 00 00 91 8a 00 00 |........|........|
|00001e90| 96 00 9d 27 b6 c0 9d 27 | b6 c0 00 00 00 00 23 fd |...'...'|......#.|
|00001ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 04 0d 00 00 |........|........|
|00001eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 2c 19 00 19 |........|....,...|
|00001ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 0c 00 00 00 |........|........|
|00001ed0| 03 fa 06 43 00 00 00 48 | 00 09 4d 6f 6e 61 63 6f |...C...H|..Monaco|
|00001ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 0e 0d 23 20 |........|......# |
|00001ef0| 00 00 00 00 00 00 00 00 | 00 00 00 06 00 04 00 2b |........|.......+|
|00001f00| 00 03 01 a1 01 8a 00 2b | 00 03 01 a1 01 8a a0 dc |.......+|........|
|00001f10| f9 72 00 00 01 5c 00 00 | 01 5c 00 00 00 00 01 00 |.r...\..|.\......|
|00001f20| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00001f30| 00 27 c4 90 06 40 00 00 | 00 1c 00 32 00 00 4d 50 |.'...@..|...2..MP|
|00001f40| 53 52 00 00 00 0a 03 ed | ff ff 00 00 00 00 00 00 |SR......|........|
|00001f50| 00 00 2f 2a 20 2d 2d 20 | 72 65 6d 6f 76 65 20 74 |../* -- |remove t|
|00001f60| 68 69 73 20 68 65 61 64 | 65 72 20 62 65 66 6f 72 |his head|er befor|
|00001f70| 65 20 75 73 69 6e 67 20 | 66 69 6c 65 21 20 2d 2d |e using |file! --|
|00001f80| 0d 48 45 41 44 45 52 3a | 09 09 54 68 65 20 4c 61 |.HEADER:|..The La|
|00001f90| 73 74 20 43 72 6f 73 73 | 2d 52 65 66 65 72 65 6e |st Cross|-Referen|
|00001fa0| 63 65 72 3b 0d 54 49 54 | 4c 45 3a 09 09 54 4c 43 |cer;.TIT|LE:..TLC|
|00001fb0| 2f 54 4c 50 20 2d 20 54 | 68 65 20 4c 61 73 74 20 |/TLP - T|he Last |
|00001fc0| 43 72 6f 73 73 2d 52 65 | 66 65 72 65 6e 63 65 72 |Cross-Re|ferencer|
|00001fd0| 3b 0d 56 45 52 53 49 4f | 4e 3a 09 31 2e 30 31 3b |;.VERSIO|N:.1.01;|
|00001fe0| 0d 0d 44 45 53 43 52 49 | 50 54 49 4f 4e 3a 20 22 |..DESCRI|PTION: "|
|00001ff0| 54 4c 43 2f 54 4c 50 2e | 0d 09 09 09 4d 61 63 69 |TLC/TLP.|....Maci|
|00002000| 6e 74 6f 73 68 20 4d 50 | 57 20 43 20 33 2e 30 20 |ntosh MP|W C 3.0 |
|00002010| 4d 61 6b 65 20 66 69 6c | 65 20 74 6f 20 63 6f 6d |Make fil|e to com|
|00002020| 70 69 6c 65 2f 6c 69 6e | 6b 20 54 4c 50 22 3b 0d |pile/lin|k TLP";.|
|00002030| 0d 4b 45 59 57 4f 52 44 | 53 3a 09 55 74 69 6c 69 |.KEYWORD|S:.Utili|
|00002040| 74 79 2c 20 43 72 6f 73 | 73 2d 72 65 66 65 72 65 |ty, Cros|s-refere|
|00002050| 6e 63 65 2c 20 43 2c 20 | 50 61 73 63 61 6c 2c 20 |nce, C, |Pascal, |
|00002060| 41 70 70 6c 65 2c 20 4d | 61 63 69 6e 74 6f 73 68 |Apple, M|acintosh|
|00002070| 2c 20 41 50 57 2c 20 41 | 7a 74 65 63 3b 0d 53 59 |, APW, A|ztec;.SY|
|00002080| 53 54 45 4d 3a 09 09 4d | 61 63 69 6e 74 6f 73 68 |STEM:..M|acintosh|
|00002090| 20 4d 50 57 2c 20 76 33 | 2e 30 3b 0d 46 49 4c 45 | MPW, v3|.0;.FILE|
|000020a0| 4e 41 4d 45 3a 09 54 4c | 50 2e 4d 41 4b 45 3b 0d |NAME:.TL|P.MAKE;.|
|000020b0| 57 41 52 4e 49 4e 47 53 | 3a 09 22 48 61 73 20 6e |WARNINGS|:."Has n|
|000020c0| 6f 74 20 79 65 74 20 62 | 65 65 6e 20 70 6f 72 74 |ot yet b|een port|
|000020d0| 65 64 20 74 6f 20 4d 53 | 2d 44 4f 53 2e 0d 09 09 |ed to MS|-DOS....|
|000020e0| 09 53 68 61 72 65 77 61 | 72 65 2c 20 24 32 30 20 |.Sharewa|re, $20 |
|000020f0| 43 68 65 63 6b 2f 4d 6f | 6e 65 79 20 4f 72 64 65 |Check/Mo|ney Orde|
|00002100| 72 20 73 75 67 67 65 73 | 74 65 64 2e 22 3b 0d 0d |r sugges|ted.";..|
|00002110| 53 45 45 2d 41 4c 53 4f | 3a 09 52 45 41 44 4d 45 |SEE-ALSO|:.README|
|00002120| 2e 54 4c 43 2c 54 4c 43 | 48 45 4c 50 2e 44 4f 43 |.TLC,TLC|HELP.DOC|
|00002130| 2c 54 4c 50 48 45 4c 50 | 2e 44 4f 43 3b 0d 41 55 |,TLPHELP|.DOC;.AU|
|00002140| 54 48 4f 52 53 3a 09 45 | 64 75 61 72 64 20 53 63 |THORS:.E|duard Sc|
|00002150| 68 77 61 6e 3b 0d 43 4f | 4d 50 49 4c 45 52 53 3a |hwan;.CO|MPILERS:|
|00002160| 09 41 5a 54 45 43 20 43 | 36 35 20 76 33 2e 32 62 |.AZTEC C|65 v3.2b|
|00002170| 2c 20 41 50 50 4c 45 49 | 49 47 53 20 41 50 57 20 |, APPLEI|IGS APW |
|00002180| 43 20 76 31 2e 30 2c 20 | 41 50 50 4c 45 20 4d 41 |C v1.0, |APPLE MA|
|00002190| 43 49 4e 54 4f 53 48 20 | 4d 50 57 20 43 20 76 33 |CINTOSH |MPW C v3|
|000021a0| 2e 30 3b 0d 2a 2f 0d 23 | 20 20 20 46 69 6c 65 3a |.0;.*/.#| File:|
|000021b0| 20 20 20 20 20 20 20 74 | 6c 70 2e 6d 61 6b 65 20 | t|lp.make |
|000021c0| 2d 20 54 68 65 20 4c 61 | 73 74 20 50 61 73 63 61 |- The La|st Pasca|
|000021d0| 6c 20 43 72 6f 73 73 2d | 72 65 66 65 72 65 6e 63 |l Cross-|referenc|
|000021e0| 65 72 0d 23 20 20 20 54 | 61 72 67 65 74 3a 20 20 |er.# T|arget: |
|000021f0| 20 20 20 74 6c 70 0d 23 | 20 20 20 53 6f 75 72 63 | tlp.#| Sourc|
|00002200| 65 73 3a 20 20 20 20 74 | 6c 70 2e 63 0d 23 20 20 |es: t|lp.c.# |
|00002210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 74 6c 63 | | tlc|
|00002220| 63 6d 64 2e 63 0d 23 09 | 09 09 09 74 6c 63 2e 65 |cmd.c.#.|...tlc.e|
|00002230| 78 74 0d 23 20 20 20 20 | 20 20 20 20 20 20 20 20 |xt.# | |
|00002240| 20 20 20 74 6c 70 67 74 | 6f 6b 2e 63 0d 23 09 09 | tlpgt|ok.c.#..|
|00002250| 09 09 74 6c 63 2e 68 0d | 23 20 20 20 20 20 20 20 |..tlc.h.|# |
|00002260| 20 20 20 20 20 20 20 20 | 74 6c 63 70 61 72 6d 2e | |tlcparm.|
|00002270| 63 0d 23 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |c.# | |
|00002280| 20 20 74 6c 70 70 72 6f | 63 66 2e 63 0d 23 20 20 | tlppro|cf.c.# |
|00002290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 74 6c 63 | | tlc|
|000022a0| 72 65 73 77 2e 63 0d 23 | 20 20 20 20 20 20 20 20 |resw.c.#| |
|000022b0| 20 20 20 20 20 20 20 74 | 6c 63 73 65 74 70 2e 63 | t|lcsetp.c|
|000022c0| 0d 23 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.# | |
|000022d0| 20 74 6c 63 73 74 61 74 | 2e 63 0d 23 20 20 20 20 | tlcstat|.c.# |
|000022e0| 20 20 20 20 20 20 20 20 | 20 20 20 74 6c 63 75 74 | | tlcut|
|000022f0| 69 6c 2e 63 0d 23 20 20 | 20 20 20 20 20 20 20 20 |il.c.# | |
|00002300| 20 20 20 20 20 74 6c 63 | 78 72 65 66 2e 63 0d 23 | tlc|xref.c.#|
|00002310| 20 20 20 43 72 65 61 74 | 65 64 3a 20 20 20 20 53 | Creat|ed: S|
|00002320| 61 74 75 72 64 61 79 2c | 20 4d 61 79 20 37 2c 20 |aturday,| May 7, |
|00002330| 31 39 38 38 20 35 3a 35 | 33 3a 31 30 20 50 4d 0d |1988 5:5|3:10 PM.|
|00002340| 23 09 41 75 74 68 6f 72 | 3a 09 09 45 64 75 61 72 |#.Author|:..Eduar|
|00002350| 64 20 53 63 68 77 61 6e | 20 5b 65 73 70 5d 0d 0d |d Schwan| [esp]..|
|00002360| 74 6c 63 69 6e 63 73 09 | 09 3d 20 74 6c 63 2e 68 |tlcincs.|.= tlc.h|
|00002370| 20 74 6c 63 2e 65 78 74 | 0d 64 69 72 65 63 74 69 | tlc.ext|.directi|
|00002380| 76 65 73 09 3d 20 2d 6d | 62 67 20 31 35 0d 0d 74 |ves.= -m|bg 15..t|
|00002390| 6c 70 2e 63 2e 6f 20 c4 | 20 74 6c 70 2e 6d 61 6b |lp.c.o .| tlp.mak|
|000023a0| 65 20 74 6c 70 2e 63 20 | 7b 74 6c 63 69 6e 63 73 |e tlp.c |{tlcincs|
|000023b0| 7d 0d 09 43 20 7b 64 69 | 72 65 63 74 69 76 65 73 |}..C {di|rectives|
|000023c0| 7d 20 74 6c 70 2e 63 0d | 74 6c 63 63 6d 64 2e 63 |} tlp.c.|tlccmd.c|
|000023d0| 2e 6f 20 c4 20 74 6c 70 | 2e 6d 61 6b 65 20 74 6c |.o . tlp|.make tl|
|000023e0| 63 63 6d 64 2e 63 20 7b | 74 6c 63 69 6e 63 73 7d |ccmd.c {|tlcincs}|
|000023f0| 0d 09 43 20 7b 64 69 72 | 65 63 74 69 76 65 73 7d |..C {dir|ectives}|
|00002400| 20 74 6c 63 63 6d 64 2e | 63 0d 74 6c 70 67 74 6f | tlccmd.|c.tlpgto|
|00002410| 6b 2e 63 2e 6f 20 c4 20 | 74 6c 70 2e 6d 61 6b 65 |k.c.o . |tlp.make|
|00002420| 20 74 6c 70 67 74 6f 6b | 2e 63 20 7b 74 6c 63 69 | tlpgtok|.c {tlci|
|00002430| 6e 63 73 7d 0d 09 43 20 | 7b 64 69 72 65 63 74 69 |ncs}..C |{directi|
|00002440| 76 65 73 7d 20 74 6c 70 | 67 74 6f 6b 2e 63 0d 74 |ves} tlp|gtok.c.t|
|00002450| 6c 63 70 61 72 6d 2e 63 | 2e 6f 20 c4 20 74 6c 70 |lcparm.c|.o . tlp|
|00002460| 2e 6d 61 6b 65 20 74 6c | 63 70 61 72 6d 2e 63 20 |.make tl|cparm.c |
|00002470| 7b 74 6c 63 69 6e 63 73 | 7d 0d 09 43 20 7b 64 69 |{tlcincs|}..C {di|
|00002480| 72 65 63 74 69 76 65 73 | 7d 20 74 6c 63 70 61 72 |rectives|} tlcpar|
|00002490| 6d 2e 63 0d 74 6c 70 70 | 72 6f 63 66 2e 63 2e 6f |m.c.tlpp|rocf.c.o|
|000024a0| 20 c4 20 74 6c 70 2e 6d | 61 6b 65 20 74 6c 70 70 | . tlp.m|ake tlpp|
|000024b0| 72 6f 63 66 2e 63 20 7b | 74 6c 63 69 6e 63 73 7d |rocf.c {|tlcincs}|
|000024c0| 0d 09 43 20 7b 64 69 72 | 65 63 74 69 76 65 73 7d |..C {dir|ectives}|
|000024d0| 20 74 6c 70 70 72 6f 63 | 66 2e 63 0d 74 6c 63 72 | tlpproc|f.c.tlcr|
|000024e0| 65 73 77 2e 63 2e 6f 20 | c4 20 74 6c 70 2e 6d 61 |esw.c.o |. tlp.ma|
|000024f0| 6b 65 20 74 6c 63 72 65 | 73 77 2e 63 20 7b 74 6c |ke tlcre|sw.c {tl|
|00002500| 63 69 6e 63 73 7d 0d 09 | 43 20 7b 64 69 72 65 63 |cincs}..|C {direc|
|00002510| 74 69 76 65 73 7d 20 74 | 6c 63 72 65 73 77 2e 63 |tives} t|lcresw.c|
|00002520| 0d 74 6c 63 73 65 74 70 | 2e 63 2e 6f 20 c4 20 74 |.tlcsetp|.c.o . t|
|00002530| 6c 70 2e 6d 61 6b 65 20 | 74 6c 63 73 65 74 70 2e |lp.make |tlcsetp.|
|00002540| 63 20 7b 74 6c 63 69 6e | 63 73 7d 0d 09 43 20 7b |c {tlcin|cs}..C {|
|00002550| 64 69 72 65 63 74 69 76 | 65 73 7d 20 74 6c 63 73 |directiv|es} tlcs|
|00002560| 65 74 70 2e 63 0d 74 6c | 63 73 74 61 74 2e 63 2e |etp.c.tl|cstat.c.|
|00002570| 6f 20 c4 20 74 6c 70 2e | 6d 61 6b 65 20 74 6c 63 |o . tlp.|make tlc|
|00002580| 73 74 61 74 2e 63 20 7b | 74 6c 63 69 6e 63 73 7d |stat.c {|tlcincs}|
|00002590| 0d 09 43 20 7b 64 69 72 | 65 63 74 69 76 65 73 7d |..C {dir|ectives}|
|000025a0| 20 74 6c 63 73 74 61 74 | 2e 63 0d 74 6c 63 75 74 | tlcstat|.c.tlcut|
|000025b0| 69 6c 2e 63 2e 6f 20 c4 | 20 74 6c 70 2e 6d 61 6b |il.c.o .| tlp.mak|
|000025c0| 65 20 74 6c 63 75 74 69 | 6c 2e 63 20 7b 74 6c 63 |e tlcuti|l.c {tlc|
|000025d0| 69 6e 63 73 7d 0d 09 43 | 20 7b 64 69 72 65 63 74 |incs}..C| {direct|
|000025e0| 69 76 65 73 7d 20 74 6c | 63 75 74 69 6c 2e 63 0d |ives} tl|cutil.c.|
|000025f0| 74 6c 63 78 72 65 66 2e | 63 2e 6f 20 c4 20 74 6c |tlcxref.|c.o . tl|
|00002600| 70 2e 6d 61 6b 65 20 74 | 6c 63 78 72 65 66 2e 63 |p.make t|lcxref.c|
|00002610| 20 7b 74 6c 63 69 6e 63 | 73 7d 0d 09 43 20 7b 64 | {tlcinc|s}..C {d|
|00002620| 69 72 65 63 74 69 76 65 | 73 7d 20 74 6c 63 78 72 |irective|s} tlcxr|
|00002630| 65 66 2e 63 0d 74 6c 70 | 20 c4 c4 20 74 6c 70 2e |ef.c.tlp| .. tlp.|
|00002640| 6d 61 6b 65 20 b6 0d 09 | 09 74 6c 70 2e 63 2e 6f |make ...|.tlp.c.o|
|00002650| 20 b6 0d 09 09 74 6c 63 | 63 6d 64 2e 63 2e 6f 20 | ....tlc|cmd.c.o |
|00002660| b6 0d 09 09 74 6c 70 67 | 74 6f 6b 2e 63 2e 6f 20 |....tlpg|tok.c.o |
|00002670| b6 0d 09 09 74 6c 63 70 | 61 72 6d 2e 63 2e 6f 20 |....tlcp|arm.c.o |
|00002680| b6 0d 09 09 74 6c 70 70 | 72 6f 63 66 2e 63 2e 6f |....tlpp|rocf.c.o|
|00002690| 20 b6 0d 09 09 74 6c 63 | 72 65 73 77 2e 63 2e 6f | ....tlc|resw.c.o|
|000026a0| 20 b6 0d 09 09 74 6c 63 | 73 65 74 70 2e 63 2e 6f | ....tlc|setp.c.o|
|000026b0| 20 b6 0d 09 09 74 6c 63 | 73 74 61 74 2e 63 2e 6f | ....tlc|stat.c.o|
|000026c0| 20 b6 0d 09 09 74 6c 63 | 75 74 69 6c 2e 63 2e 6f | ....tlc|util.c.o|
|000026d0| 20 b6 0d 09 09 74 6c 63 | 78 72 65 66 2e 63 2e 6f | ....tlc|xref.c.o|
|000026e0| 0d 09 4c 69 6e 6b 20 2d | 77 20 2d 74 20 4d 50 53 |..Link -|w -t MPS|
|000026f0| 54 20 2d 63 20 27 4d 50 | 53 20 27 20 b6 0d 09 09 |T -c 'MP|S ' ....|
|00002700| 74 6c 70 2e 63 2e 6f 20 | b6 0d 09 09 74 6c 63 63 |tlp.c.o |....tlcc|
|00002710| 6d 64 2e 63 2e 6f 20 b6 | 0d 09 09 74 6c 70 67 74 |md.c.o .|...tlpgt|
|00002720| 6f 6b 2e 63 2e 6f 20 b6 | 0d 09 09 74 6c 63 70 61 |ok.c.o .|...tlcpa|
|00002730| 72 6d 2e 63 2e 6f 20 b6 | 0d 09 09 74 6c 70 70 72 |rm.c.o .|...tlppr|
|00002740| 6f 63 66 2e 63 2e 6f 20 | b6 0d 09 09 74 6c 63 72 |ocf.c.o |....tlcr|
|00002750| 65 73 77 2e 63 2e 6f 20 | b6 0d 09 09 74 6c 63 73 |esw.c.o |....tlcs|
|00002760| 65 74 70 2e 63 2e 6f 20 | b6 0d 09 09 74 6c 63 73 |etp.c.o |....tlcs|
|00002770| 74 61 74 2e 63 2e 6f 20 | b6 0d 09 09 74 6c 63 75 |tat.c.o |....tlcu|
|00002780| 74 69 6c 2e 63 2e 6f 20 | b6 0d 09 09 74 6c 63 78 |til.c.o |....tlcx|
|00002790| 72 65 66 2e 63 2e 6f 20 | b6 0d 09 09 22 7b 4c 69 |ref.c.o |...."{Li|
|000027a0| 62 72 61 72 69 65 73 7d | 22 49 6e 74 65 72 66 61 |braries}|"Interfa|
|000027b0| 63 65 2e 6f 20 b6 0d 09 | 09 22 7b 43 4c 69 62 72 |ce.o ...|."{CLibr|
|000027c0| 61 72 69 65 73 7d 22 43 | 52 75 6e 74 69 6d 65 2e |aries}"C|Runtime.|
|000027d0| 6f 20 b6 0d 09 09 22 7b | 43 4c 69 62 72 61 72 69 |o ...."{|CLibrari|
|000027e0| 65 73 7d 22 53 74 64 43 | 4c 69 62 2e 6f 20 b6 0d |es}"StdC|Lib.o ..|
|000027f0| 09 09 22 7b 43 4c 69 62 | 72 61 72 69 65 73 7d 22 |.."{CLib|raries}"|
|00002800| 43 53 41 4e 45 4c 69 62 | 2e 6f 20 b6 0d 09 09 22 |CSANELib|.o ...."|
|00002810| 7b 43 4c 69 62 72 61 72 | 69 65 73 7d 22 4d 61 74 |{CLibrar|ies}"Mat|
|00002820| 68 2e 6f 20 b6 0d 09 09 | 22 7b 43 4c 69 62 72 61 |h.o ....|"{CLibra|
|00002830| 72 69 65 73 7d 22 43 49 | 6e 74 65 72 66 61 63 65 |ries}"CI|nterface|
|00002840| 2e 6f 20 b6 0d 09 09 22 | 7b 4c 69 62 72 61 72 69 |.o ...."|{Librari|
|00002850| 65 73 7d 22 54 6f 6f 6c | 4c 69 62 73 2e 6f 20 b6 |es}"Tool|Libs.o .|
|00002860| 0d 09 09 2d 6f 20 22 7b | 6d 70 77 7d 54 6f 6f 6c |...-o "{|mpw}Tool|
|00002870| 73 3a 74 6c 70 22 0d 00 | 00 01 00 00 00 01 4c 00 |s:tlp"..|......L.|
|00002880| 00 00 4c 00 00 00 32 20 | 20 20 20 20 20 20 20 6f |..L...2 | o|
|00002890| 75 74 5f 66 69 6c 65 3b | 0d 65 78 74 65 72 6e 20 |ut_file;|.extern |
|000028a0| 20 69 6e 74 20 20 20 09 | 74 6c 70 67 74 6f 6b 2e | int .|tlpgtok.|
|000028b0| 63 02 00 00 00 54 45 58 | 54 4d 50 53 20 01 00 00 |c....TEX|TMPS ...|
|000028c0| 50 00 c0 00 00 00 00 00 | 00 54 45 58 54 4d 50 53 |P.......|.TEXTMPS|
|000028d0| 20 01 00 00 50 00 c0 00 | 00 00 00 00 00 00 00 00 | ...P...|........|
|000028e0| 00 00 00 00 00 00 00 00 | 00 9e 7f c2 a9 00 00 34 |........|.......4|
|000028f0| 1f 00 00 01 7e 64 69 6f | 2e 68 20 2d 2d 2d 2d 2d |....~dio|.h -----|
|00002900| 2d 2d 2d 2d 2d 2d 2d 2a | 2f 0d 0d 65 78 74 65 72 |-------*|/..exter|
|00002910| 6e 20 63 68 61 72 20 2a | 20 6d 61 6c 6c 6f 63 28 |n char *| malloc(|
|00002920| 29 3b 0d 00 b6 01 b2 01 | 00 00 c0 00 00 01 00 ff |);......|........|
|00002930| f8 ff ee 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002950| 00 29 83 00 01 00 00 00 | 00 00 00 00 00 29 82 00 |.)......|.....)..|
|00002960| 01 00 00 00 00 00 00 00 | 00 00 00 00 00 0f 00 00 |........|........|
|00002970| 00 03 d0 09 52 49 6e 00 | 00 00 48 00 09 4d 6f 6e |....RIn.|..H..Mon|
|00002980| 61 63 6f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |aco.....|........|
|00002990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 06 00 |........|........|
|000029a0| 04 00 2c 00 05 01 6c 02 | 03 00 2c 00 05 01 6c 02 |..,...l.|..,...l.|
|000029b0| 03 a0 dc f4 0a 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029c0| 00 01 00 00 00 01 00 00 | 00 01 4c 00 00 00 4c 00 |........|..L...L.|
|000029d0| 00 00 32 00 27 c4 90 06 | 40 00 00 00 1c 00 32 00 |..2.'...|@.....2.|
|000029e0| 00 4d 50 53 52 00 00 00 | 0a 03 ed ff ff 00 00 00 |.MPSR...|........|
|000029f0| 00 00 00 00 00 2f 2a 20 | 54 4c 50 47 54 4f 4b 2e |...../* |TLPGTOK.|
|00002a00| 43 20 2d 20 22 54 68 65 | 20 4c 61 73 74 20 43 72 |C - "The| Last Cr|
|00002a10| 6f 73 73 2d 72 65 66 65 | 72 65 6e 63 65 72 22 20 |oss-refe|rencer" |
|00002a20| 2d 20 50 61 73 63 61 6c | 20 47 65 74 20 54 6f 6b |- Pascal| Get Tok|
|00002a30| 65 6e 20 72 6f 75 74 69 | 6e 65 73 09 2a 2f 0d 2f |en routi|nes.*/./|
|00002a40| 2a 09 4c 61 73 74 20 4d | 6f 64 69 66 69 65 64 3a |*.Last M|odified:|
|00002a50| 09 30 32 2f 31 30 2f 38 | 39 09 09 09 09 09 09 09 |.02/10/8|9.......|
|00002a60| 09 09 09 09 2a 2f 0d 0d | 2f 2a 0d 2d 2d 2d 2d 2d |....*/..|/*.-----|
|00002a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ab0| 0d 43 6f 70 79 72 69 67 | 68 74 20 28 63 29 20 31 |.Copyrig|ht (c) 1|
|00002ac0| 39 38 37 2d 31 39 38 39 | 2c 20 45 64 75 61 72 64 |987-1989|, Eduard|
|00002ad0| 20 53 63 68 77 61 6e 20 | 50 72 6f 67 72 61 6d 73 | Schwan |Programs|
|00002ae0| 20 5b 65 73 70 5d 20 2d | 20 41 6c 6c 20 72 69 67 | [esp] -| All rig|
|00002af0| 68 74 73 20 72 65 73 65 | 72 76 65 64 0d 54 4c 43 |hts rese|rved.TLC|
|00002b00| 20 28 54 68 65 20 4c 61 | 73 74 20 43 2d 43 72 6f | (The La|st C-Cro|
|00002b10| 73 73 2d 52 65 66 65 72 | 65 6e 63 65 72 29 20 61 |ss-Refer|encer) a|
|00002b20| 6e 64 20 54 4c 50 20 28 | 73 61 6d 65 2c 20 62 75 |nd TLP (|same, bu|
|00002b30| 74 20 66 6f 72 20 50 61 | 73 63 61 6c 29 20 61 72 |t for Pa|scal) ar|
|00002b40| 65 0d 43 72 6f 73 73 2d | 52 65 66 65 72 65 6e 63 |e.Cross-|Referenc|
|00002b50| 65 20 47 65 6e 65 72 61 | 74 6f 72 73 20 63 72 61 |e Genera|tors cra|
|00002b60| 66 74 65 64 20 61 6e 64 | 20 73 68 6f 74 20 69 6e |fted and| shot in|
|00002b70| 74 6f 20 74 68 65 20 50 | 75 62 6c 69 63 20 44 6f |to the P|ublic Do|
|00002b80| 6d 61 69 6e 20 62 79 0d | 45 64 75 61 72 64 20 53 |main by.|Eduard S|
|00002b90| 63 68 77 61 6e 2e 20 20 | 54 68 65 20 73 6f 75 72 |chwan. |The sour|
|00002ba0| 63 65 20 63 6f 64 65 20 | 61 6e 64 20 65 78 65 63 |ce code |and exec|
|00002bb0| 75 74 61 62 6c 65 20 70 | 72 6f 67 72 61 6d 20 6d |utable p|rogram m|
|00002bc0| 61 79 20 62 65 20 66 72 | 65 65 6c 79 0d 64 69 73 |ay be fr|eely.dis|
|00002bd0| 74 72 69 62 75 74 65 64 | 20 61 73 20 6c 6f 6e 67 |tributed| as long|
|00002be0| 20 61 73 20 74 68 65 20 | 63 6f 70 79 72 69 67 68 | as the |copyrigh|
|00002bf0| 74 2f 61 75 74 68 6f 72 | 20 6e 6f 74 69 63 65 73 |t/author| notices|
|00002c00| 20 72 65 6d 61 69 6e 20 | 69 6e 74 61 63 74 2c 20 | remain |intact, |
|00002c10| 61 6e 64 0d 69 74 20 69 | 73 20 6e 6f 74 20 75 73 |and.it i|s not us|
|00002c20| 65 64 20 69 6e 20 70 61 | 72 74 20 6f 72 20 77 68 |ed in pa|rt or wh|
|00002c30| 6f 6c 65 20 61 73 20 74 | 68 65 20 62 61 73 69 73 |ole as t|he basis|
|00002c40| 20 6f 66 20 61 20 63 6f | 6d 6d 65 72 63 69 61 6c | of a co|mmercial|
|00002c50| 20 70 72 6f 64 75 63 74 | 2e 0d 41 6e 79 20 63 6f | product|..Any co|
|00002c60| 6d 6d 65 6e 74 73 2c 20 | 62 75 67 2d 66 69 78 65 |mments, |bug-fixe|
|00002c70| 73 2c 20 6f 72 20 65 6e | 68 61 6e 63 65 6d 65 6e |s, or en|hancemen|
|00002c80| 74 73 20 61 72 65 20 77 | 65 6c 63 6f 6d 65 2e 0d |ts are w|elcome..|
|00002c90| 41 6c 73 6f 2c 20 69 66 | 20 79 6f 75 20 66 69 6e |Also, if| you fin|
|00002ca0| 64 20 54 4c 43 20 61 6e | 64 20 69 74 27 73 20 73 |d TLC an|d it's s|
|00002cb0| 6f 75 72 63 65 20 63 6f | 64 65 20 75 73 65 66 75 |ource co|de usefu|
|00002cc0| 6c 2c 20 61 20 63 6f 6e | 74 72 69 62 75 74 69 6f |l, a con|tributio|
|00002cd0| 6e 20 6f 66 0d 24 32 30 | 20 28 63 68 65 63 6b 2f |n of.$20| (check/|
|00002ce0| 6d 6f 6e 65 79 20 6f 72 | 64 65 72 29 20 69 73 20 |money or|der) is |
|00002cf0| 65 6e 63 6f 75 72 61 67 | 65 64 21 20 20 48 6f 70 |encourag|ed! Hop|
|00002d00| 65 66 75 6c 6c 79 20 77 | 65 20 77 69 6c 6c 20 61 |efully w|e will a|
|00002d10| 6c 6c 20 73 65 65 20 6d | 6f 72 65 0d 73 6f 75 72 |ll see m|ore.sour|
|00002d20| 63 65 20 63 6f 64 65 20 | 64 69 73 74 72 69 62 75 |ce code |distribu|
|00002d30| 74 65 64 21 0d 09 45 64 | 75 61 72 64 20 53 63 68 |ted!..Ed|uard Sch|
|00002d40| 77 61 6e 2c 20 31 31 31 | 32 20 4f 63 65 61 6e 69 |wan, 111|2 Oceani|
|00002d50| 63 20 44 72 69 76 65 2c | 20 45 6e 63 69 6e 69 74 |c Drive,| Encinit|
|00002d60| 61 73 2c 20 43 61 6c 69 | 66 2e 20 39 32 30 32 34 |as, Cali|f. 92024|
|00002d70| 0d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.-------|--------|
|00002d80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002d90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002da0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002db0| 2d 2d 2d 2d 2d 2d 0d 2a | 2f 0d 0d 2f 2a 0d 48 45 |------.*|/../*.HE|
|00002dc0| 41 44 45 52 3a 09 09 54 | 68 65 20 4c 61 73 74 20 |ADER:..T|he Last |
|00002dd0| 43 72 6f 73 73 2d 52 65 | 66 65 72 65 6e 63 65 72 |Cross-Re|ferencer|
|00002de0| 3b 0d 54 49 54 4c 45 3a | 09 09 54 4c 43 2f 54 4c |;.TITLE:|..TLC/TL|
|00002df0| 50 20 2d 20 54 68 65 20 | 4c 61 73 74 20 43 72 6f |P - The |Last Cro|
|00002e00| 73 73 2d 52 65 66 65 72 | 65 6e 63 65 72 3b 0d 56 |ss-Refer|encer;.V|
|00002e10| 45 52 53 49 4f 4e 3a 09 | 31 2e 30 31 3b 0d 0d 44 |ERSION:.|1.01;..D|
|00002e20| 45 53 43 52 49 50 54 49 | 4f 4e 3a 20 22 54 4c 43 |ESCRIPTI|ON: "TLC|
|00002e30| 2f 54 4c 50 2e 0d 09 09 | 09 50 61 73 63 61 6c 20 |/TLP....|.Pascal |
|00002e40| 47 65 74 20 54 6f 6b 65 | 6e 20 72 6f 75 74 69 6e |Get Toke|n routin|
|00002e50| 65 73 22 3b 0d 0d 4b 45 | 59 57 4f 52 44 53 3a 09 |es";..KE|YWORDS:.|
|00002e60| 55 74 69 6c 69 74 79 2c | 20 43 72 6f 73 73 2d 72 |Utility,| Cross-r|
|00002e70| 65 66 65 72 65 6e 63 65 | 2c 20 43 2c 20 50 61 73 |eference|, C, Pas|
|00002e80| 63 61 6c 2c 20 41 70 70 | 6c 65 2c 20 4d 61 63 69 |cal, App|le, Maci|
|00002e90| 6e 74 6f 73 68 2c 20 41 | 50 57 2c 20 41 7a 74 65 |ntosh, A|PW, Azte|
|00002ea0| 63 3b 0d 53 59 53 54 45 | 4d 3a 09 09 4d 61 63 69 |c;.SYSTE|M:..Maci|
|00002eb0| 6e 74 6f 73 68 20 4d 50 | 57 2c 20 76 33 2e 30 3b |ntosh MP|W, v3.0;|
|00002ec0| 0d 46 49 4c 45 4e 41 4d | 45 3a 09 54 4c 50 47 54 |.FILENAM|E:.TLPGT|
|00002ed0| 4f 4b 2e 43 3b 0d 57 41 | 52 4e 49 4e 47 53 3a 09 |OK.C;.WA|RNINGS:.|
|00002ee0| 22 48 61 73 20 6e 6f 74 | 20 79 65 74 20 62 65 65 |"Has not| yet bee|
|00002ef0| 6e 20 70 6f 72 74 65 64 | 20 74 6f 20 4d 53 2d 44 |n ported| to MS-D|
|00002f00| 4f 53 2e 0d 09 09 09 53 | 68 61 72 65 77 61 72 65 |OS.....S|hareware|
|00002f10| 2c 20 24 32 30 20 43 68 | 65 63 6b 2f 4d 6f 6e 65 |, $20 Ch|eck/Mone|
|00002f20| 79 20 4f 72 64 65 72 20 | 73 75 67 67 65 73 74 65 |y Order |suggeste|
|00002f30| 64 2e 22 3b 0d 0d 53 45 | 45 2d 41 4c 53 4f 3a 09 |d.";..SE|E-ALSO:.|
|00002f40| 52 45 41 44 4d 45 2e 54 | 4c 43 2c 54 4c 43 48 45 |README.T|LC,TLCHE|
|00002f50| 4c 50 2e 44 4f 43 2c 54 | 4c 50 48 45 4c 50 2e 44 |LP.DOC,T|LPHELP.D|
|00002f60| 4f 43 3b 0d 41 55 54 48 | 4f 52 53 3a 09 45 64 75 |OC;.AUTH|ORS:.Edu|
|00002f70| 61 72 64 20 53 63 68 77 | 61 6e 3b 0d 43 4f 4d 50 |ard Schw|an;.COMP|
|00002f80| 49 4c 45 52 53 3a 09 41 | 5a 54 45 43 20 43 36 35 |ILERS:.A|ZTEC C65|
|00002f90| 20 76 33 2e 32 62 2c 20 | 41 50 50 4c 45 49 49 47 | v3.2b, |APPLEIIG|
|00002fa0| 53 20 41 50 57 20 43 20 | 76 31 2e 30 2c 20 41 50 |S APW C |v1.0, AP|
|00002fb0| 50 4c 45 20 4d 41 43 49 | 4e 54 4f 53 48 20 4d 50 |PLE MACI|NTOSH MP|
|00002fc0| 57 20 43 20 76 33 2e 30 | 3b 0d 2a 2f 0d 0d 0d 2f |W C v3.0|;.*/.../|
|00002fd0| 2a 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |*-------|--------|
|00002fe0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 20 69 6e 63 6c 75 64 |--------|- includ|
|00002ff0| 65 20 66 69 6c 65 73 20 | 2d 2d 2d 2d 2d 2d 2d 2d |e files |--------|
|00003000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003010| 2d 2a 2f 0d 0d 23 69 6e | 63 6c 75 64 65 09 3c 73 |-*/..#in|clude.<s|
|00003020| 74 64 69 6f 2e 68 3e 0d | 23 69 6e 63 6c 75 64 65 |tdio.h>.|#include|
|00003030| 09 3c 63 74 79 70 65 2e | 68 3e 0d 23 69 6e 63 6c |.<ctype.|h>.#incl|
|00003040| 75 64 65 09 22 74 6c 63 | 2e 68 22 0d 0d 2f 2a 2d |ude."tlc|.h"../*-|
|00003050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003060| 2d 2d 2d 2d 2d 2d 2d 2d | 20 64 65 66 69 6e 69 74 |--------| definit|
|00003070| 69 6f 6e 73 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ions ---|--------|
|00003080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2a 2f |--------|------*/|
|00003090| 0d 0d 23 64 65 66 69 6e | 65 20 09 45 6f 6c 6e 09 |..#defin|e .Eoln.|
|000030a0| 09 09 09 30 09 2f 2a 20 | 63 68 61 72 61 63 74 65 |...0./* |characte|
|000030b0| 72 20 63 6f 6e 73 74 61 | 6e 74 73 20 2a 2f 0d 23 |r consta|nts */.#|
|000030c0| 64 65 66 69 6e 65 20 09 | 54 61 62 20 09 09 09 09 |define .|Tab ....|
|000030d0| 27 5c 74 27 0d 23 64 65 | 66 69 6e 65 20 09 43 52 |'\t'.#de|fine .CR|
|000030e0| 65 74 75 72 6e 20 09 09 | 09 27 5c 72 27 0d 23 64 |eturn ..|.'\r'.#d|
|000030f0| 65 66 69 6e 65 20 09 4e | 65 77 6c 69 6e 65 20 09 |efine .N|ewline .|
|00003100| 09 09 27 5c 6e 27 0d 23 | 64 65 66 69 6e 65 20 09 |..'\n'.#|define .|
|00003110| 53 70 61 63 65 09 09 09 | 09 27 20 27 0d 23 64 65 |Space...|.' '.#de|
|00003120| 66 69 6e 65 20 09 4d 69 | 6e 75 73 09 09 09 09 27 |fine .Mi|nus....'|
|00003130| 2d 27 0d 23 64 65 66 69 | 6e 65 20 09 50 6c 75 73 |-'.#defi|ne .Plus|
|00003140| 09 09 09 09 27 2b 27 0d | 23 64 65 66 69 6e 65 20 |....'+'.|#define |
|00003150| 09 45 71 75 61 6c 73 09 | 09 09 09 27 3d 27 0d 23 |.Equals.|...'='.#|
|00003160| 64 65 66 69 6e 65 20 09 | 53 69 6e 67 6c 65 5f 71 |define .|Single_q|
|00003170| 75 6f 74 65 09 09 27 5c | 27 27 0d 23 64 65 66 69 |uote..'\|''.#defi|
|00003180| 6e 65 20 09 44 6f 75 62 | 6c 65 5f 71 75 6f 74 65 |ne .Doub|le_quote|
|00003190| 09 09 27 22 27 0d 23 64 | 65 66 69 6e 65 20 09 44 |..'"'.#d|efine .D|
|000031a0| 6f 6c 6c 61 72 5f 73 69 | 67 6e 09 09 09 27 24 27 |ollar_si|gn...'$'|
|000031b0| 0d 23 64 65 66 69 6e 65 | 20 09 50 6f 75 6e 64 5f |.#define| .Pound_|
|000031c0| 73 69 67 6e 09 09 09 27 | 23 27 0d 23 64 65 66 69 |sign...'|#'.#defi|
|000031d0| 6e 65 20 09 53 6c 61 73 | 68 09 09 09 09 27 2f 27 |ne .Slas|h....'/'|
|000031e0| 0d 23 64 65 66 69 6e 65 | 20 09 42 61 63 6b 73 6c |.#define| .Backsl|
|000031f0| 61 73 68 09 09 09 27 5c | 5c 27 0d 23 64 65 66 69 |ash...'\|\'.#defi|
|00003200| 6e 65 20 09 4f 70 65 6e | 5f 70 61 72 65 6e 09 09 |ne .Open|_paren..|
|00003210| 09 27 28 27 0d 23 64 65 | 66 69 6e 65 20 09 43 6c |.'('.#de|fine .Cl|
|00003220| 6f 73 65 5f 70 61 72 65 | 6e 09 09 09 27 29 27 0d |ose_pare|n...')'.|
|00003230| 23 64 65 66 69 6e 65 20 | 09 4f 70 65 6e 5f 62 72 |#define |.Open_br|
|00003240| 61 63 65 09 09 09 27 7b | 27 0d 23 64 65 66 69 6e |ace...'{|'.#defin|
|00003250| 65 20 09 43 6c 6f 73 65 | 5f 62 72 61 63 65 09 09 |e .Close|_brace..|
|00003260| 09 27 7d 27 0d 23 64 65 | 66 69 6e 65 20 09 41 73 |.'}'.#de|fine .As|
|00003270| 74 65 72 69 73 6b 09 09 | 09 27 2a 27 0d 23 64 65 |terisk..|.'*'.#de|
|00003280| 66 69 6e 65 20 09 50 65 | 72 69 6f 64 09 09 09 09 |fine .Pe|riod....|
|00003290| 27 2e 27 0d 23 64 65 66 | 69 6e 65 20 09 55 6e 64 |'.'.#def|ine .Und|
|000032a0| 65 72 73 63 6f 72 65 09 | 09 09 27 5f 27 0d 0d 0d |erscore.|..'_'...|
|000032b0| 2f 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/*------|--------|
|000032c0| 2d 2d 2d 2d 2d 2d 2d 20 | 65 78 74 65 72 6e 61 6c |------- |external|
|000032d0| 20 64 65 63 6c 61 72 61 | 74 69 6f 6e 73 20 2d 2d | declara|tions --|
|000032e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032f0| 2d 2d 2a 2f 0d 0d 23 69 | 6e 63 6c 75 64 65 09 22 |--*/..#i|nclude."|
|00003300| 74 6c 63 2e 65 78 74 22 | 0d 0d 0d 2f 2a 2d 2d 2d |tlc.ext"|.../*---|
|00003310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003320| 2d 2d 2d 2d 2d 20 73 74 | 61 74 69 63 20 76 61 72 |----- st|atic var|
|00003330| 69 61 62 6c 65 73 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |iables -|--------|
|00003340| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2a 2f |--------|------*/|
|00003350| 0d 0d 73 74 61 74 69 63 | 20 63 68 61 72 20 09 09 |..static| char ..|
|00003360| 09 63 75 72 72 5f 63 68 | 3b 0d 73 74 61 74 69 63 |.curr_ch|;.static|
|00003370| 20 70 6f 73 5f 69 6e 74 | 09 09 09 63 75 72 72 5f | pos_int|...curr_|
|00003380| 63 6f 6c 75 6d 6e 3b 0d | 73 74 61 74 69 63 20 69 |column;.|static i|
|00003390| 6e 74 09 09 09 09 65 72 | 72 6f 72 3b 0d 73 74 61 |nt....er|ror;.sta|
|000033a0| 74 69 63 20 62 6f 6f 6c | 65 61 6e 09 09 09 67 6f |tic bool|ean...go|
|000033b0| 74 5f 74 6f 6b 65 6e 3b | 0d 73 74 61 74 69 63 20 |t_token;|.static |
|000033c0| 62 6f 6f 6c 65 61 6e 09 | 09 09 69 6e 5f 63 6f 6d |boolean.|..in_com|
|000033d0| 6d 65 6e 74 3b 0d 73 74 | 61 74 69 63 20 62 6f 6f |ment;.st|atic boo|
|000033e0| 6c 65 61 6e 09 09 09 70 | 75 73 68 65 64 5f 74 6f |lean...p|ushed_to|
|000033f0| 6b 65 6e 3b 0d 73 74 61 | 74 69 63 20 74 6f 6b 65 |ken;.sta|tic toke|
|00003400| 6e 5f 72 65 63 5f 74 79 | 70 65 09 70 72 65 76 5f |n_rec_ty|pe.prev_|
|00003410| 74 6f 6b 65 6e 3b 0d 73 | 74 61 74 69 63 20 69 6e |token;.s|tatic in|
|00003420| 74 09 09 09 09 73 79 6d | 5f 6c 65 6e 67 74 68 3b |t....sym|_length;|
|00003430| 0d 0d 73 74 61 74 69 63 | 20 62 6f 6f 6c 65 61 6e |..static| boolean|
|00003440| 09 09 09 63 61 73 65 5f | 73 65 6e 73 69 74 69 76 |...case_|sensitiv|
|00003450| 65 3b 0d 73 74 61 74 69 | 63 20 62 6f 6f 6c 65 61 |e;.stati|c boolea|
|00003460| 6e 09 09 09 64 6f 5f 75 | 6e 64 65 72 73 63 6f 72 |n...do_u|nderscor|
|00003470| 65 73 3b 0d 73 74 61 74 | 69 63 20 62 6f 6f 6c 65 |es;.stat|ic boole|
|00003480| 61 6e 09 09 09 64 65 6c | 5f 71 75 6f 74 65 73 3b |an...del|_quotes;|
|00003490| 0d 0d 0d 2f 2a 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.../*===|========|
|000034a0| 3d 3d 3d 3d 3d 5b 20 69 | 6e 69 74 5f 73 63 61 6e |=====[ i|nit_scan|
|000034b0| 6e 65 72 20 5d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |ner ]===|========|
|000034c0| 3d 3d 3d 3d 3d 3d 3d 2a | 2f 0d 0d 56 4f 49 44 20 |=======*|/..VOID |
|000034d0| 69 6e 69 74 5f 73 63 61 | 6e 6e 65 72 28 43 61 73 |init_sca|nner(Cas|
|000034e0| 65 5f 53 65 6e 73 69 74 | 69 76 65 2c 20 44 6f 5f |e_Sensit|ive, Do_|
|000034f0| 55 6e 64 65 72 73 63 6f | 72 65 73 2c 20 44 65 6c |Undersco|res, Del|
|00003500| 5f 51 75 6f 74 65 73 29 | 0d 62 6f 6f 6c 65 61 6e |_Quotes)|.boolean|
|00003510| 20 09 43 61 73 65 5f 53 | 65 6e 73 69 74 69 76 65 | .Case_S|ensitive|
|00003520| 3b 0d 62 6f 6f 6c 65 61 | 6e 20 09 44 6f 5f 55 6e |;.boolea|n .Do_Un|
|00003530| 64 65 72 73 63 6f 72 65 | 73 3b 0d 62 6f 6f 6c 65 |derscore|s;.boole|
|00003540| 61 6e 20 09 44 65 6c 5f | 51 75 6f 74 65 73 3b 0d |an .Del_|Quotes;.|
|00003550| 0d 09 7b 20 2f 2a 20 69 | 6e 69 74 5f 73 63 61 6e |..{ /* i|nit_scan|
|00003560| 6e 65 72 28 29 20 2a 2f | 0d 2f 2a 0d 64 65 62 75 |ner() */|./*.debu|
|00003570| 67 28 70 72 69 6e 74 66 | 28 22 69 6e 69 74 5f 73 |g(printf|("init_s|
|00003580| 63 61 6e 6e 65 72 3a 63 | 61 73 65 3d 25 64 20 75 |canner:c|ase=%d u|
|00003590| 6e 64 65 72 3d 25 64 20 | 64 65 6c 71 3d 25 64 5c |nder=%d |delq=%d\|
|000035a0| 6e 22 2c 5c 0d 43 61 73 | 65 5f 53 65 6e 73 69 74 |n",\.Cas|e_Sensit|
|000035b0| 69 76 65 2c 44 6f 5f 55 | 6e 64 65 72 73 63 6f 72 |ive,Do_U|nderscor|
|000035c0| 65 73 2c 44 65 6c 5f 51 | 75 6f 74 65 73 29 3b 29 |es,Del_Q|uotes);)|
|000035d0| 0d 2a 2f 0d 09 63 61 73 | 65 5f 73 65 6e 73 69 74 |.*/..cas|e_sensit|
|000035e0| 69 76 65 20 3d 20 43 61 | 73 65 5f 53 65 6e 73 69 |ive = Ca|se_Sensi|
|000035f0| 74 69 76 65 3b 0d 09 64 | 6f 5f 75 6e 64 65 72 73 |tive;..d|o_unders|
|00003600| 63 6f 72 65 73 20 3d 20 | 44 6f 5f 55 6e 64 65 72 |cores = |Do_Under|
|00003610| 73 63 6f 72 65 73 3b 0d | 09 64 65 6c 5f 71 75 6f |scores;.|.del_quo|
|00003620| 74 65 73 09 20 20 20 3d | 20 44 65 6c 5f 51 75 6f |tes. =| Del_Quo|
|00003630| 74 65 73 3b 0d 09 63 75 | 72 72 5f 63 6f 6c 75 6d |tes;..cu|rr_colum|
|00003640| 6e 20 3d 20 30 3b 0d 09 | 65 72 72 6f 72 09 09 3d |n = 0;..|error..=|
|00003650| 20 30 3b 0d 09 69 6e 5f | 63 6f 6d 6d 65 6e 74 09 | 0;..in_|comment.|
|00003660| 3d 20 46 41 4c 53 45 3b | 0d 09 70 75 73 68 65 64 |= FALSE;|..pushed|
|00003670| 5f 74 6f 6b 65 6e 3d 20 | 46 41 4c 53 45 3b 0d 09 |_token= |FALSE;..|
|00003680| 7d 20 2f 2a 20 69 6e 69 | 74 5f 73 63 61 6e 6e 65 |} /* ini|t_scanne|
|00003690| 72 28 29 20 2a 2f 0d 0d | 0d 2f 2a 3d 3d 3d 3d 3d |r() */..|./*=====|
|000036a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 5b 20 70 75 |========|====[ pu|
|000036b0| 73 68 5f 74 6f 6b 65 6e | 20 5d 3d 3d 3d 3d 3d 3d |sh_token| ]======|
|000036c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 2a 2f 0d |========|=====*/.|
|000036d0| 0d 56 4f 49 44 20 70 75 | 73 68 5f 74 6f 6b 65 6e |.VOID pu|sh_token|
|000036e0| 28 29 0d 0d 09 7b 20 2f | 2a 20 70 75 73 68 5f 74 |()...{ /|* push_t|
|000036f0| 6f 6b 65 6e 28 29 20 2a | 2f 0d 2f 2a 0d 64 65 62 |oken() *|/./*.deb|
|00003700| 75 67 28 70 72 69 6e 74 | 66 28 22 70 75 73 68 5f |ug(print|f("push_|
|00003710| 74 6f 6b 65 6e 3a 5c 6e | 22 29 3b 29 0d 2a 2f 0d |token:\n|");).*/.|
|00003720| 09 69 66 20 28 70 75 73 | 68 65 64 5f 74 6f 6b 65 |.if (pus|hed_toke|
|00003730| 6e 29 0d 09 09 7b 0d 09 | 09 66 70 72 69 6e 74 66 |n)...{..|.fprintf|
|00003740| 28 73 74 64 65 72 72 2c | 22 45 72 72 6f 72 21 20 |(stderr,|"Error! |
|00003750| 54 6f 6b 65 6e 20 73 74 | 61 63 6b 20 6f 76 65 72 |Token st|ack over|
|00003760| 66 6c 6f 77 2e 2e 22 29 | 3b 0d 09 09 65 78 69 74 |flow..")|;...exit|
|00003770| 28 31 29 3b 0d 09 09 7d | 0d 09 65 6c 73 65 0d 09 |(1);...}|..else..|
|00003780| 09 7b 0d 09 09 70 72 65 | 76 5f 74 6f 6b 65 6e 20 |.{...pre|v_token |
|00003790| 3d 20 74 6f 6b 65 6e 3b | 0d 09 09 70 75 73 68 65 |= token;|...pushe|
|000037a0| 64 5f 74 6f 6b 65 6e 20 | 3d 20 54 52 55 45 3b 0d |d_token |= TRUE;.|
|000037b0| 09 09 7d 0d 09 7d 20 2f | 2a 20 70 75 73 68 5f 74 |..}..} /|* push_t|
|000037c0| 6f 6b 65 6e 28 29 20 2a | 2f 0d 0d 0d 2f 2a 3d 3d |oken() *|/.../*==|
|000037d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 5b 20 |========|======[ |
|000037e0| 69 6e 69 74 5f 73 79 6d | 5f 62 75 66 66 20 5d 3d |init_sym|_buff ]=|
|000037f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003800| 2a 2f 0d 0d 73 74 61 74 | 69 63 20 56 4f 49 44 20 |*/..stat|ic VOID |
|00003810| 69 6e 69 74 5f 73 79 6d | 5f 62 75 66 66 28 29 0d |init_sym|_buff().|
|00003820| 0d 09 7b 20 2f 2a 20 69 | 6e 69 74 5f 73 79 6d 5f |..{ /* i|nit_sym_|
|00003830| 62 75 66 66 28 29 20 2a | 2f 0d 2f 2a 2d 2d 2d 2d |buff() *|/./*----|
|00003840| 2d 2d 2d 2d 20 64 6f 20 | 74 68 69 73 20 69 66 20 |---- do |this if |
|00003850| 6e 6f 20 46 49 4c 4c 43 | 48 41 52 20 2d 2d 2d 2d |no FILLC|HAR ----|
|00003860| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 70 6f 73 5f 69 6e 74 |--------|.pos_int|
|00003870| 20 6b 3b 0d 66 6f 72 20 | 28 6b 3d 30 3b 6b 3c 4c | k;.for |(k=0;k<L|
|00003880| 49 4e 45 5f 53 49 5a 45 | 3b 6b 2b 2b 29 20 74 6f |INE_SIZE|;k++) to|
|00003890| 6b 65 6e 2e 74 6f 6b 5f | 73 74 72 69 6e 67 5b 6b |ken.tok_|string[k|
|000038a0| 5d 3d 30 3b 0d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |]=0;.---|--------|
|000038b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000038c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000038d0| 2d 2d 2d 2a 2f 0d 09 46 | 49 4c 4c 43 48 41 52 28 |---*/..F|ILLCHAR(|
|000038e0| 74 6f 6b 65 6e 2e 74 6f | 6b 5f 73 74 72 69 6e 67 |token.to|k_string|
|000038f0| 2c 20 4c 49 4e 45 5f 53 | 49 5a 45 2c 20 30 29 3b |, LINE_S|IZE, 0);|
|00003900| 0d 09 73 79 6d 5f 6c 65 | 6e 67 74 68 20 3d 20 30 |..sym_le|ngth = 0|
|00003910| 3b 0d 2f 2a 64 65 62 75 | 67 28 70 72 69 6e 74 66 |;./*debu|g(printf|
|00003920| 28 22 69 6e 69 74 5f 73 | 79 6d 5f 62 75 66 66 3a |("init_s|ym_buff:|
|00003930| 5c 6e 22 29 3b 29 2a 2f | 0d 09 7d 20 2f 2a 20 69 |\n");)*/|..} /* i|
|00003940| 6e 69 74 5f 73 79 6d 5f | 62 75 66 66 28 29 20 2a |nit_sym_|buff() *|
|00003950| 2f 0d 0d 0d 2f 2a 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |/.../*==|========|
|00003960| 3d 3d 3d 3d 3d 3d 5b 20 | 61 64 64 5f 73 79 6d 5f |======[ |add_sym_|
|00003970| 62 75 66 66 20 5d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |buff ]==|========|
|00003980| 3d 3d 3d 3d 3d 3d 3d 2a | 2f 0d 0d 73 74 61 74 69 |=======*|/..stati|
|00003990| 63 20 56 4f 49 44 20 61 | 64 64 5f 73 79 6d 5f 62 |c VOID a|dd_sym_b|
|000039a0| 75 66 66 28 63 75 72 72 | 5f 63 68 29 0d 63 68 61 |uff(curr|_ch).cha|
|000039b0| 72 20 63 75 72 72 5f 63 | 68 3b 0d 0d 09 7b 20 2f |r curr_c|h;...{ /|
|000039c0| 2a 20 61 64 64 5f 73 79 | 6d 5f 62 75 66 66 28 29 |* add_sy|m_buff()|
|000039d0| 20 2a 2f 0d 2f 2a 0d 64 | 65 62 75 67 28 70 72 69 | */./*.d|ebug(pri|
|000039e0| 6e 74 66 28 22 61 64 64 | 5f 73 79 6d 5f 62 75 66 |ntf("add|_sym_buf|
|000039f0| 66 3a 27 25 63 27 5c 6e | 22 2c 63 75 72 72 5f 63 |f:'%c'\n|",curr_c|
|00003a00| 68 29 3b 29 0d 2a 2f 0d | 09 69 66 20 28 73 79 6d |h);).*/.|.if (sym|
|00003a10| 5f 6c 65 6e 67 74 68 20 | 3c 20 4c 49 4e 45 5f 53 |_length |< LINE_S|
|00003a20| 49 5a 45 29 0d 09 09 7b | 0d 09 09 74 6f 6b 65 6e |IZE)...{|...token|
|00003a30| 2e 74 6f 6b 5f 73 74 72 | 69 6e 67 5b 73 79 6d 5f |.tok_str|ing[sym_|
|00003a40| 6c 65 6e 67 74 68 5d 20 | 3d 20 63 75 72 72 5f 63 |length] |= curr_c|
|00003a50| 68 3b 0d 09 09 73 79 6d | 5f 6c 65 6e 67 74 68 2b |h;...sym|_length+|
|00003a60| 2b 3b 0d 09 09 7d 0d 09 | 7d 20 2f 2a 20 61 64 64 |+;...}..|} /* add|
|00003a70| 5f 73 79 6d 5f 62 75 66 | 66 28 29 20 2a 2f 0d 0d |_sym_buf|f() */..|
|00003a80| 0d 2f 2a 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |./*=====|========|
|00003a90| 3d 3d 3d 5b 20 64 65 6c | 5f 73 79 6d 5f 62 75 66 |===[ del|_sym_buf|
|00003aa0| 66 20 5d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |f ]=====|========|
|00003ab0| 3d 3d 3d 3d 2a 2f 0d 0d | 73 74 61 74 69 63 20 56 |====*/..|static V|
|00003ac0| 4f 49 44 20 64 65 6c 5f | 73 79 6d 5f 62 75 66 66 |OID del_|sym_buff|
|00003ad0| 28 29 0d 0d 09 7b 20 2f | 2a 20 64 65 6c 5f 73 79 |()...{ /|* del_sy|
|00003ae0| 6d 5f 62 75 66 66 28 29 | 20 2a 2f 0d 2f 2a 0d 64 |m_buff()| */./*.d|
|00003af0| 65 62 75 67 28 70 72 69 | 6e 74 66 28 22 64 65 6c |ebug(pri|ntf("del|
|00003b00| 5f 73 79 6d 5f 62 75 66 | 66 3a 5c 6e 22 29 3b 29 |_sym_buf|f:\n");)|
|00003b10| 0d 2a 2f 0d 09 69 66 20 | 28 73 79 6d 5f 6c 65 6e |.*/..if |(sym_len|
|00003b20| 67 74 68 20 3e 20 30 29 | 0d 09 09 7b 0d 09 09 73 |gth > 0)|...{...s|
|00003b30| 79 6d 5f 6c 65 6e 67 74 | 68 2d 2d 3b 0d 09 09 74 |ym_lengt|h--;...t|
|00003b40| 6f 6b 65 6e 2e 74 6f 6b | 5f 73 74 72 69 6e 67 5b |oken.tok|_string[|
|00003b50| 73 79 6d 5f 6c 65 6e 67 | 74 68 5d 20 3d 20 45 6f |sym_leng|th] = Eo|
|00003b60| 6c 6e 3b 0d 09 09 7d 0d | 09 7d 20 2f 2a 20 64 65 |ln;...}.|.} /* de|
|00003b70| 6c 5f 73 79 6d 5f 62 75 | 66 66 28 29 20 2a 2f 0d |l_sym_bu|ff() */.|
|00003b80| 0d 0d 2f 2a 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |../*====|========|
|00003b90| 3d 3d 3d 3d 5b 20 69 6e | 5f 73 79 6d 62 6f 6c 73 |====[ in|_symbols|
|00003ba0| 65 74 20 5d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |et ]====|========|
|00003bb0| 3d 3d 3d 3d 3d 2a 2f 0d | 0d 73 74 61 74 69 63 20 |=====*/.|.static |
|00003bc0| 62 6f 6f 6c 65 61 6e 20 | 69 6e 5f 73 79 6d 62 6f |boolean |in_symbo|
|00003bd0| 6c 73 65 74 28 63 68 29 | 0d 72 65 67 69 73 74 65 |lset(ch)|.registe|
|00003be0| 72 20 63 68 61 72 09 63 | 68 3b 0d 0d 09 7b 20 2f |r char.c|h;...{ /|
|00003bf0| 2a 20 69 6e 5f 73 79 6d | 62 6f 6c 73 65 74 28 29 |* in_sym|bolset()|
|00003c00| 20 2a 2f 0d 09 72 65 74 | 75 72 6e 28 0d 09 09 09 | */..ret|urn(....|
|00003c10| 69 73 61 6c 70 68 61 28 | 63 68 29 20 7c 7c 20 69 |isalpha(|ch) || i|
|00003c20| 73 64 69 67 69 74 28 63 | 68 29 20 7c 7c 20 63 68 |sdigit(c|h) || ch|
|00003c30| 3d 3d 55 6e 64 65 72 73 | 63 6f 72 65 0d 09 09 20 |==Unders|core... |
|00003c40| 20 29 3b 0d 09 7d 20 2f | 2a 20 69 6e 5f 73 79 6d | );..} /|* in_sym|
|00003c50| 62 6f 6c 73 65 74 28 29 | 20 2a 2f 0d 0d 0d 2f 2a |bolset()| */.../*|
|00003c60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 5b 20 |========|======[ |
|00003c70| 64 6f 5f 69 64 65 6e 74 | 69 66 69 65 72 20 5d 3d |do_ident|ifier ]=|
|00003c80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 2a 2f |========|======*/|
|00003c90| 0d 0d 73 74 61 74 69 63 | 20 56 4f 49 44 20 64 6f |..static| VOID do|
|00003ca0| 5f 69 64 65 6e 74 69 66 | 69 65 72 28 29 0d 0d 09 |_identif|ier()...|
|00003cb0| 7b 20 2f 2a 20 64 6f 5f | 69 64 65 6e 74 69 66 69 |{ /* do_|identifi|
|00003cc0| 65 72 28 29 20 2a 2f 0d | 09 62 6f 6f 6c 65 61 6e |er() */.|.boolean|
|00003cd0| 20 09 64 6f 6e 65 3b 0d | 0d 2f 2a 0d 64 65 62 75 | .done;.|./*.debu|
|00003ce0| 67 28 70 72 69 6e 74 66 | 28 22 64 6f 5f 69 64 65 |g(printf|("do_ide|
|00003cf0| 6e 74 69 66 69 65 72 3a | 5c 6e 22 29 3b 29 0d 2a |ntifier:|\n");).*|
|00003d00| 2f 0d 09 64 6f 6e 65 20 | 3d 20 46 41 4c 53 45 3b |/..done |= FALSE;|
|00003d10| 0d 09 77 68 69 6c 65 20 | 28 21 65 72 72 6f 72 20 |..while |(!error |
|00003d20| 26 26 20 21 64 6f 6e 65 | 29 0d 09 09 7b 0d 09 09 |&& !done|)...{...|
|00003d30| 63 75 72 72 5f 63 68 20 | 3d 20 63 75 72 72 5f 6c |curr_ch |= curr_l|
|00003d40| 69 6e 65 5b 63 75 72 72 | 5f 63 6f 6c 75 6d 6e 5d |ine[curr|_column]|
|00003d50| 3b 0d 09 09 69 66 20 28 | 21 63 61 73 65 5f 73 65 |;...if (|!case_se|
|00003d60| 6e 73 69 74 69 76 65 29 | 0d 09 09 09 63 75 72 72 |nsitive)|....curr|
|00003d70| 5f 63 68 20 3d 20 74 6f | 6c 6f 77 65 72 28 63 75 |_ch = to|lower(cu|
|00003d80| 72 72 5f 63 68 29 3b 0d | 09 09 69 66 20 28 63 75 |rr_ch);.|..if (cu|
|00003d90| 72 72 5f 63 68 20 3d 3d | 20 45 6f 6c 6e 29 0d 09 |rr_ch ==| Eoln)..|
|00003da0| 09 09 64 6f 6e 65 20 3d | 20 54 52 55 45 3b 0d 09 |..done =| TRUE;..|
|00003db0| 09 65 6c 73 65 0d 09 09 | 69 66 20 28 69 6e 5f 73 |.else...|if (in_s|
|00003dc0| 79 6d 62 6f 6c 73 65 74 | 28 63 75 72 72 5f 63 68 |ymbolset|(curr_ch|
|00003dd0| 29 29 0d 09 09 09 7b 0d | 09 09 09 69 66 20 28 63 |))....{.|...if (c|
|00003de0| 75 72 72 5f 63 68 21 3d | 55 6e 64 65 72 73 63 6f |urr_ch!=|Undersco|
|00003df0| 72 65 20 7c 7c 20 64 6f | 5f 75 6e 64 65 72 73 63 |re || do|_undersc|
|00003e00| 6f 72 65 73 29 0d 09 09 | 09 09 61 64 64 5f 73 79 |ores)...|..add_sy|
|00003e10| 6d 5f 62 75 66 66 28 63 | 75 72 72 5f 63 68 29 3b |m_buff(c|urr_ch);|
|00003e20| 0d 09 09 09 63 75 72 72 | 5f 63 6f 6c 75 6d 6e 2b |....curr|_column+|
|00003e30| 2b 3b 0d 09 09 09 7d 0d | 09 09 65 6c 73 65 0d 09 |+;....}.|..else..|
|00003e40| 09 09 64 6f 6e 65 20 3d | 20 54 52 55 45 3b 0d 09 |..done =| TRUE;..|
|00003e50| 09 7d 20 2f 2a 77 68 69 | 6c 65 2a 2f 0d 0d 09 69 |.} /*whi|le*/...i|
|00003e60| 66 20 28 21 65 72 72 6f | 72 29 0d 09 09 67 6f 74 |f (!erro|r)...got|
|00003e70| 5f 74 6f 6b 65 6e 20 3d | 20 54 52 55 45 3b 0d 0d |_token =| TRUE;..|
|00003e80| 09 7d 20 2f 2a 20 64 6f | 5f 69 64 65 6e 74 69 66 |.} /* do|_identif|
|00003e90| 69 65 72 28 29 20 2a 2f | 0d 0d 0d 2f 2a 3d 3d 3d |ier() */|.../*===|
|00003ea0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 5b 20 69 |========|=====[ i|
|00003eb0| 6e 5f 6e 75 6d 62 65 72 | 73 65 74 20 5d 3d 3d 3d |n_number|set ]===|
|00003ec0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 2a 2f |========|======*/|
|00003ed0| 0d 0d 73 74 61 74 69 63 | 20 62 6f 6f 6c 65 61 6e |..static| boolean|
|00003ee0| 20 69 6e 5f 6e 75 6d 62 | 65 72 73 65 74 28 63 68 | in_numb|erset(ch|
|00003ef0| 2c 20 6e 65 78 74 63 68 | 2c 66 69 72 73 74 5f 74 |, nextch|,first_t|
|00003f00| 69 6d 65 2c 62 61 73 65 | 29 0d 72 65 67 69 73 74 |ime,base|).regist|
|00003f10| 65 72 20 63 68 61 72 09 | 09 63 68 3b 0d 72 65 67 |er char.|.ch;.reg|
|00003f20| 69 73 74 65 72 20 63 68 | 61 72 09 09 6e 65 78 74 |ister ch|ar..next|
|00003f30| 63 68 3b 0d 72 65 67 69 | 73 74 65 72 20 62 6f 6f |ch;.regi|ster boo|
|00003f40| 6c 65 61 6e 09 66 69 72 | 73 74 5f 74 69 6d 65 3b |lean.fir|st_time;|
|00003f50| 0d 72 65 67 69 73 74 65 | 72 20 70 6f 73 5f 69 6e |.registe|r pos_in|
|00003f60| 74 09 62 61 73 65 3b 0d | 0d 09 7b 20 2f 2a 20 69 |t.base;.|..{ /* i|
|00003f70| 6e 5f 6e 75 6d 62 65 72 | 73 65 74 28 29 20 2a 2f |n_number|set() */|
|00003f80| 0d 09 2f 2a 20 74 68 69 | 73 20 64 6f 65 73 6e 27 |../* thi|s doesn'|
|00003f90| 74 20 71 75 69 74 65 20 | 68 61 6e 64 6c 65 20 72 |t quite |handle r|
|00003fa0| 65 61 6c 73 20 63 6f 72 | 72 65 63 74 6c 79 2e 2e |eals cor|rectly..|
|00003fb0| 20 32 6e 64 20 73 69 67 | 6e 73 20 67 6f 6f 66 20 | 2nd sig|ns goof |
|00003fc0| 69 74 20 75 70 20 2a 2f | 0d 09 2f 2a 20 69 6e 20 |it up */|../* in |
|00003fd0| 65 78 70 6f 6e 65 6e 74 | 73 2c 20 69 2e 65 2e 20 |exponent|s, i.e. |
|00003fe0| 20 2d 32 35 36 45 2d 35 | 09 09 09 09 09 09 09 09 | -256E-5|........|
|00003ff0| 09 09 2a 2f 0d 09 72 65 | 74 75 72 6e 28 0d 09 09 |..*/..re|turn(...|
|00004000| 09 69 73 64 69 67 69 74 | 28 63 68 29 20 7c 7c 0d |.isdigit|(ch) ||.|
|00004010| 09 09 09 63 68 3d 3d 27 | 65 27 20 7c 7c 20 28 63 |...ch=='|e' || (c|
|00004020| 68 3d 3d 50 65 72 69 6f | 64 20 26 26 20 6e 65 78 |h==Perio|d && nex|
|00004030| 74 63 68 20 21 3d 20 50 | 65 72 69 6f 64 29 20 7c |tch != P|eriod) ||
|00004040| 7c 0d 09 09 09 28 62 61 | 73 65 3d 3d 42 5f 68 65 ||....(ba|se==B_he|
|00004050| 78 20 26 26 20 63 68 3e | 3d 27 61 27 20 26 26 20 |x && ch>|='a' && |
|00004060| 63 68 20 3c 3d 20 27 66 | 27 29 20 7c 7c 0d 09 09 |ch <= 'f|') ||...|
|00004070| 09 28 66 69 72 73 74 5f | 74 69 6d 65 20 26 26 20 |.(first_|time && |
|00004080| 28 63 68 3d 3d 4d 69 6e | 75 73 20 7c 7c 20 63 68 |(ch==Min|us || ch|
|00004090| 3d 3d 50 6c 75 73 29 29 | 0d 09 09 20 20 29 3b 0d |==Plus))|... );.|
|000040a0| 09 7d 20 2f 2a 20 69 6e | 5f 6e 75 6d 62 65 72 73 |.} /* in|_numbers|
|000040b0| 65 74 28 29 20 2a 2f 0d | 0d 0d 2f 2a 3d 3d 3d 3d |et() */.|../*====|
|000040c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 5b 20 63 6f |========|====[ co|
|000040d0| 6e 76 65 72 74 5f 6e 75 | 6d 62 65 72 20 5d 3d 3d |nvert_nu|mber ]==|
|000040e0| 3d 3d 3d 3d 00 00 00 00 | 00 00 00 00 00 00 00 00 |====....|........|
|000040f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004100| 20 6c 69 6e 65 23 25 35 | 64 25 63 5c 6e 22 2c 20 | line#%5|d%c\n", |
|00004110| 5c 0d 6f 6b 5f 74 6f 5f | 70 72 69 6e 74 28 29 2c |\.ok_to_|print(),|
|00004120| 20 6c 69 6e 65 5f 70 74 | 72 2d 3e 6c 69 6e 65 5f | line_pt|r->line_|
|00004130| 6e 75 6d 62 65 72 2c 20 | 72 65 66 5f 63 68 61 72 |number, |ref_char|
|00004140| 73 5b 6c 69 6e 65 5f 70 | 74 72 2d 3e 72 65 66 65 |s[line_p|tr->refe|
|00004150| 72 65 6e 63 65 5f 74 79 | 70 65 5d 29 3b 29 2a 2f |rence_ty|pe]);)*/|
|00004160| 0d 0d 09 09 66 70 72 69 | 6e 74 66 28 6f 75 74 5f |....fpri|ntf(out_|
|00004170| 66 69 6c 65 2c 20 22 25 | 35 64 25 63 22 2c 09 20 |file, "%|5d%c",. |
|00004180| 2f 2a 6e 6f 74 65 3a 52 | 45 46 5f 4e 55 4d 5f 53 |/*note:R|EF_NUM_S|
|00004190| 49 5a 45 2a 2f 0d 09 09 | 09 6c 69 6e 65 5f 70 74 |IZE*/...|.line_pt|
|000041a0| 72 2d 3e 6c 69 6e 65 5f | 6e 75 6d 62 65 72 2c 20 |r->line_|number, |
|000041b0| 72 65 66 5f 63 68 61 72 | 73 5b 6c 69 6e 65 5f 70 |ref_char|s[line_p|
|000041c0| 74 72 2d 3e 72 65 66 65 | 72 65 6e 63 65 5f 74 79 |tr->refe|rence_ty|
|000041d0| 70 65 5d 29 3b 0d 09 6f | 75 74 5f 63 6f 6c 75 6d |pe]);..o|ut_colum|
|000041e0| 6e 20 2b 3d 20 52 45 46 | 5f 4e 55 4d 5f 53 49 5a |n += REF|_NUM_SIZ|
|000041f0| 45 3b 0d 0d 09 7d 20 2f | 2a 20 61 64 64 5f 72 65 |E;...} /|* add_re|
|00004200| 66 5f 74 6f 5f 6c 69 6e | 65 28 29 20 2a 2f 0d 0d |f_to_lin|e() */..|
|00004210| 0d 2f 2a 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |./*=====|========|
|00004220| 3d 3d 5b 20 66 69 6e 69 | 73 68 5f 78 72 65 66 5f |==[ fini|sh_xref_|
|00004230| 73 74 75 66 66 20 5d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |stuff ]=|========|
|00004240| 3d 3d 3d 3d 3d 3d 3d 2a | 2f 0d 0d 73 74 61 74 69 |=======*|/..stati|
|00004250| 63 20 56 4f 49 44 20 66 | 69 6e 69 73 68 5f 78 72 |c VOID f|inish_xr|
|00004260| 65 66 5f 73 74 75 66 66 | 28 29 0d 0d 09 7b 20 2f |ef_stuff|()...{ /|
|00004270| 2a 20 66 69 6e 69 73 68 | 5f 78 72 65 66 5f 00 00 |* finish|_xref_..|
+--------+-------------------------+-------------------------+--------+--------+